/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / zeus.arj / ZEUSDEF.DBT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 09 07 00 00 e4 5e f5 04 | 54 2d 68 08 60 65 b8 5e |.....^..|T-h.`e.^|
|00000010| 91 4d 97 03 00 00 00 00 | ab 45 14 06 60 65 3e 65 |.M......|.E..`e>e|
|00000020| 44 42 46 4e 54 58 00 00 | 4c 65 c8 5e 6b 12 c6 2b |DBFNTX..|Le.^k..+|
|00000030| 68 08 60 65 2e 03 ba 5e | 6d 0d a0 7e 00 00 83 0d |h.`e...^|m..~....|
|00000040| 0a 00 5e 32 e0 5e 70 32 | e0 5e 00 0b 62 00 dc 00 |..^2.^p2|.^..b...|
|00000050| 00 00 70 32 e0 5e 00 00 | 07 00 68 08 60 65 14 65 |..p2.^..|..h.`e.e|
|00000060| 01 00 06 65 00 00 5e 32 | e0 5e 00 00 fe 5e 8e 05 |...e..^2|.^...^..|
|00000070| 00 00 1b 07 0c 1e f0 58 | 8b 02 00 00 ec 46 a4 64 |.......X|.....F.d|
|00000080| 5e 03 ab 45 00 00 08 5f | 04 11 5d 4a 3a 00 d0 01 |^..E..._|..]J:...|
|00000090| 1e 5f 1b 07 0c 1e 20 80 | 8b 02 00 00 ec 46 34 64 |._.... .|.....F4d|
|000000a0| 50 32 aa 45 00 00 28 5f | 3c 0b 5d 4a 33 00 00 00 |P2.E..(_|<.]J3...|
|000000b0| 3a 5f 2b 09 0c 1e e0 5e | 91 01 00 00 ec 46 a0 7f |:_+....^|.....F..|
|000000c0| 91 02 58 5f b3 15 70 1b | 48 32 e0 5e 91 02 74 16 |..X_..p.|H2.^..t.|
|000000d0| 0c 00 0b 00 48 32 e0 5e | 00 00 53 0c a0 7d 18 64 |....H2.^|..S..}.d|
|000000e0| 6a 5f d3 17 70 1b 00 00 | 0c 00 7c 5f ef 10 53 0c |j_..p...|..|_..S.|
|000000f0| a0 7d 7c 5f 9d 02 0c 1e | 00 00 ec 46 fc 63 45 32 |.}|_....|...F.cE2|
|00000100| 9f 45 00 00 86 5f 3c 01 | 5d 4a 09 00 ca 01 98 5f |.E..._<.|]J....._|
|00000110| 2b 09 0c 1e e0 5e 91 01 | 00 00 ec 46 e0 71 16 03 |+....^..|...F.q..|
|00000120| b6 5f b3 15 70 1b 38 32 | e0 5e 16 03 a5 c2 13 00 |._..p.82|.^......|
|00000130| 0b 00 38 32 e0 5e 00 00 | e2 0b a0 7d d2 63 c8 5f |..82.^..|...}.c._|
|00000140| d3 17 70 1b 00 00 13 00 | da 5f ef 10 e2 0b a0 7d |..p.....|._.....}|
|00000150| da 5f 9d 02 0c 1e 00 00 | ec 46 7e 63 e3 03 9e 45 |._......|.F~c...E|
|00000160| 00 00 e4 5f 9c 00 5d 4a | 08 00 38 01 fa 5f 2b 09 |..._..]J|..8.._+.|
|00000170| 0c 1e 20 6e 8b 02 00 00 | ec 46 c8 62 fc 03 a5 40 |.. n....|.F.b...@|
|00000180| 00 00 04 60 90 02 5d 4a | 0b 00 a5 02 1a 60 2b 09 |...`..]J|.....`+.|
|00000190| 0c 1e 20 7c 8b 02 00 00 | ec 46 4a 62 ea 01 a4 40 |.. |....|.FJb...@|
|000001a0| 00 0c 24 60 b0 0a 5d 4a | 2e 00 00 00 3a 60 1b 07 |..$`..]J|....:`..|
|000001b0| 0c 1e e0 6a 8b 02 00 00 | 00 00 12 62 02 2f 52 12 |...j....|...b./R.|
|000001c0| 00 10 44 60 10 00 5d 4a | 01 00 00 00 52 60 1b 07 |..D`..]J|....R`..|
|000001d0| 0c 1e 91 4d a7 08 01 00 | 00 00 6c 60 cb 00 55 0b |...M....|..l`..U.|
|000001e0| 01 00 8a 00 78 21 5f 41 | 9a 60 91 4d 9a 60 91 4d |....x!_A|.`.M.`.M|
|000001f0| 01 00 02 00 82 60 38 03 | 55 0b e4 0a e0 5e 02 00 |.....`8.|U....^..|
|00000200| 1a 00 1a 00 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 2e 44 42 46 00 44 | 42 46 00 00 b2 24 5f 33 |...DBF.D|BF...$_3|
|00000220| e2 24 5f 33 12 25 5f 33 | 14 0b 5f 33 a4 09 5f 33 |.$_3.%_3|.._3.._3|
|00000230| 64 09 5f 33 cc 0a 5f 33 | 00 00 00 00 f4 0b 5f 33 |d._3.._3|......_3|
|00000240| 00 00 00 00 8c 0b 5f 33 | b2 11 5f 33 26 28 5f 33 |......_3|.._3&(_3|
|00000250| 04 23 5f 33 20 24 5f 33 | 00 00 00 00 00 00 00 00 |.#_3 $_3|........|
|00000260| 32 0e 5f 33 82 1b 5f 33 | 58 1a 5f 33 22 09 5f 33 |2._3.._3|X._3"._3|
|00000270| ba 08 5f 33 1c 32 5f 33 | ea 1f 5f 33 92 23 5f 33 |.._3.2_3|.._3.#_3|
|00000280| 58 35 5f 33 74 24 5f 33 | 76 11 5f 33 00 00 00 00 |X5_3t$_3|v._3....|
|00000290| 50 0f 5f 33 a2 16 5f 33 | 60 34 5f 33 90 19 5f 33 |P._3.._3|`4_3.._3|
|000002a0| b4 15 5f 33 00 00 00 00 | 8e 35 5f 33 9e 35 5f 33 |.._3....|.5_3.5_3|
|000002b0| 00 00 00 00 54 2a 5f 33 | 68 2c 5f 33 4c 33 5f 33 |....T*_3|h,_3L3_3|
|000002c0| 6e 32 5f 33 56 2b 5f 33 | bc 0d 5f 33 00 0e 5f 33 |n2_3V+_3|.._3.._3|
|000002d0| 82 0d 5f 33 00 00 00 00 | 00 00 00 00 c4 0c 5f 33 |.._3....|......_3|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 24 35 5f 33 | 00 00 00 00 00 00 00 00 |....$5_3|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 4c 27 5f 33 |........|....L'_3|
|00000340| 9a 27 5f 33 44 42 46 00 | 03 44 42 46 0c 47 45 54 |.'_3DBF.|.DBF.GET|
|00000350| 46 55 4e 43 54 41 42 4c | 45 5a 41 2f 3e 3e 00 ba |FUNCTABL|EZA/>>..|
|00000360| 36 01 00 01 00 5e 41 2f | 3e 08 00 ba 36 00 54 45 |6....^A/|>...6.TE|
|00000370| 4d 50 50 41 54 48 00 00 | 00 00 00 00 00 00 00 00 |MPPATH..|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 55 00 00 00 04 0d e9 06 |........|U.......|
|000003b0| 00 00 00 00 c9 0c e9 06 | 5d 20 69 38 b5 06 e9 06 |........|] i8....|
|000003c0| 2d 29 e9 06 5f 01 71 0c | 28 04 94 0d 00 2e e9 06 |-).._.q.|(.......|
|000003d0| 00 00 0c 1e 10 2e e9 06 | 22 2e e9 06 34 2e e9 06 |........|"...4...|
|000003e0| 3c 2f e9 06 4e 2f e9 06 | 00 00 00 00 00 00 41 04 |</..N/..|......A.|
|000003f0| 0c 1e 41 04 0c 1e 41 04 | 0c 1e 41 04 0c 1e 41 04 |..A...A.|..A...A.|
|00000400| 2f 2f 63 6c 69 70 70 65 | 72 20 74 65 78 74 20 65 |//clippe|r text e|
|00000410| 64 69 74 6f 72 0d 0a 2f | 2f 20 3c 43 3e 20 31 39 |ditor../|/ <C> 19|
|00000420| 39 32 20 41 2e 57 2e 42 | 65 6c 6c 0d 0a 2f 2f 20 |92 A.W.B|ell..// |
|00000430| 43 4f 4d 50 49 4c 45 20 | 57 49 54 48 20 54 48 45 |COMPILE |WITH THE|
|00000440| 20 2f 4e 20 53 57 49 54 | 43 48 21 21 21 0d 0a 2f | /N SWIT|CH!!!../|
|00000450| 2f 49 6e 69 74 69 61 6c | 69 73 65 20 73 63 72 65 |/Initial|ise scre|
|00000460| 65 6e 20 65 74 63 0d 0a | 23 49 4e 43 4c 55 44 45 |en etc..|#INCLUDE|
|00000470| 20 22 49 4e 4b 45 59 2e | 43 48 22 0d 0a 23 49 4e | "INKEY.|CH"..#IN|
|00000480| 43 4c 55 44 45 20 22 4d | 45 4d 4f 45 44 49 54 2e |CLUDE "M|EMOEDIT.|
|00000490| 43 48 22 0d 0a 23 49 4e | 43 4c 55 44 45 20 27 41 |CH"..#IN|CLUDE 'A|
|000004a0| 43 48 4f 49 43 45 2e 43 | 48 27 0d 0a 23 49 4e 43 |CHOICE.C|H'..#INC|
|000004b0| 4c 55 44 45 20 27 44 42 | 53 54 52 55 43 54 2e 43 |LUDE 'DB|STRUCT.C|
|000004c0| 48 27 0d 0a 23 49 4e 43 | 4c 55 44 45 20 27 6d 6f |H'..#INC|LUDE 'mo|
|000004d0| 75 73 65 2e 63 68 27 0d | 0a 23 69 6e 63 6c 75 64 |use.ch'.|.#includ|
|000004e0| 65 20 27 67 6c 6c 69 62 | 72 2e 63 68 27 0d 0a 23 |e 'gllib|r.ch'..#|
|000004f0| 69 6e 63 6c 75 64 65 20 | 27 67 72 75 6d 70 2e 63 |include |'grump.c|
|00000500| 68 27 0d 0a 23 69 6e 63 | 6c 75 64 65 20 27 67 72 |h'..#inc|lude 'gr|
|00000510| 75 6d 70 72 2e 63 68 27 | 0d 0a 6d 65 6d 76 61 72 |umpr.ch'|..memvar|
|00000520| 20 67 65 74 6c 69 73 74 | 0d 0a 73 74 61 74 69 63 | getlist|..static|
|00000530| 20 73 69 7a 65 3a 3d 30 | 0d 0a 73 74 61 74 69 63 | size:=0|..static|
|00000540| 20 73 62 5f 6c 65 6e 2c | 61 62 6b 5f 6c 3a 3d 2e | sb_len,|abk_l:=.|
|00000550| 74 2e 2c 6c 44 6f 50 61 | 64 3a 3d 2e 74 2e 0d 0a |t.,lDoPa|d:=.t...|
|00000560| 0d 0a 53 54 41 54 49 43 | 20 6d 4d 59 46 49 4c 45 |..STATIC| mMYFILE|
|00000570| 5b 34 5d 20 20 20 20 2f | 2f 20 41 52 52 41 59 20 |[4]    /|/ ARRAY |
|00000580| 54 4f 20 48 4f 4c 44 20 | 57 49 4e 44 4f 57 53 20 |TO HOLD |WINDOWS |
|00000590| 49 4e 20 4d 45 4d 4f 52 | 59 0d 0a 53 54 41 54 49 |IN MEMOR|Y..STATI|
|000005a0| 43 20 63 4f 50 45 52 20 | 2f 2f 20 52 45 54 55 52 |C cOPER |// RETUR|
|000005b0| 4e 20 56 41 4c 20 46 4f | 52 20 4d 45 4d 4f 45 44 |N VAL FO|R MEMOED|
|000005c0| 49 54 20 55 53 45 52 20 | 46 55 4e 43 54 0d 0a 53 |IT USER |FUNCT..S|
|000005d0| 54 41 54 49 43 20 6e 54 | 3a 3d 7b 30 2c 30 2c 31 |TATIC nT|:={0,0,1|
|000005e0| 31 2c 30 2c 30 2c 31 31 | 2c 31 31 7d 20 20 20 20 |1,0,0,11|,11}    |
|000005f0| 20 20 20 20 20 20 20 2f | 2f 0d 0a 53 54 41 54 49 |       /|/..STATI|
|00000600| 43 20 6e 4c 3a 3d 7b 30 | 2c 30 2c 30 2c 30 2c 33 |C nL:={0|,0,0,0,3|
|00000610| 39 2c 30 2c 33 39 7d 20 | 20 20 20 20 20 20 20 20 |9,0,39} |        |
|00000620| 20 20 20 2f 2f 63 6f 2d | 6f 72 64 69 6e 61 74 65 |   //co-|ordinate|
|00000630| 73 20 66 6f 72 20 77 69 | 6e 64 6f 77 73 0d 0a 53 |s for wi|ndows..S|
|00000640| 54 41 54 49 43 20 6e 42 | 3a 3d 7b 32 33 2c 31 31 |TATIC nB|:={23,11|
|00000650| 2c 32 33 2c 31 31 2c 31 | 31 2c 32 33 2c 32 33 7d |,23,11,1|1,23,23}|
|00000660| 20 20 20 20 20 20 20 2f | 2f 0d 0a 53 54 41 54 49 |       /|/..STATI|
|00000670| 43 20 6e 52 3a 3d 7b 37 | 39 2c 37 39 2c 37 39 2c |C nR:={7|9,79,79,|
|00000680| 33 39 2c 37 39 2c 33 39 | 2c 37 39 7d 20 20 20 20 |39,79,39|,79}    |
|00000690| 20 20 20 2f 2f 0d 0a 53 | 54 41 54 49 43 20 63 46 |   //..S|TATIC cF|
|000006a0| 49 4c 45 0d 0a 53 54 41 | 54 49 43 20 46 5f 45 58 |ILE..STA|TIC F_EX|
|000006b0| 54 3a 3d 27 2e 50 52 47 | 27 2f 2f 46 49 4c 45 20 |T:='.PRG|'//FILE |
|000006c0| 45 58 54 45 4e 53 49 4f | 4e 20 28 44 45 46 41 55 |EXTENSIO|N (DEFAU|
|000006d0| 4c 54 29 0d 0a 53 54 41 | 54 49 43 20 50 41 54 54 |LT)..STA|TIC PATT|
|000006e0| 45 52 4e 3a 3d 27 27 0d | 0a 53 54 41 54 49 43 20 |ERN:=''.|.STATIC |
|000006f0| 6e 57 49 4e 3a 3d 31 20 | 2f 2f 20 4e 4f 20 4f 46 |nWIN:=1 |// NO OF|
|00000700| 20 41 43 54 49 56 45 20 | 57 49 4e 44 4f 57 53 20 | ACTIVE |WINDOWS |
|00000710| 28 31 2c 32 20 4f 52 20 | 34 29 0d 0a 53 54 41 54 |(1,2 OR |4)..STAT|
|00000720| 49 43 20 6e 44 49 53 50 | 3a 3d 31 2f 2f 20 41 43 |IC nDISP|:=1// AC|
|00000730| 54 49 56 45 20 57 49 4e | 44 4f 57 20 4e 55 4d 42 |TIVE WIN|DOW NUMB|
|00000740| 45 52 0d 0a 73 74 61 74 | 69 63 20 62 75 74 74 73 |ER..stat|ic butts|
|00000750| 3a 3d 32 0d 0a 53 54 41 | 54 49 43 20 6e 4c 49 4e |:=2..STA|TIC nLIN|
|00000760| 45 31 3a 3d 7b 31 2c 31 | 2c 31 2c 31 7d 20 20 2f |E1:={1,1|,1,1}  /|
|00000770| 2f 20 41 52 52 41 59 53 | 20 46 4f 52 20 43 55 52 |/ ARRAYS| FOR CUR|
|00000780| 53 4f 52 20 50 4f 53 49 | 54 49 4f 4e 53 0d 0a 53 |SOR POSI|TIONS..S|
|00000790| 54 41 54 49 43 20 6e 43 | 4f 4c 31 3a 3d 7b 30 2c |TATIC nC|OL1:={0,|
|000007a0| 30 2c 30 2c 30 7d 20 20 | 20 2f 2f 0d 0a 53 54 41 |0,0,0}  | //..STA|
|000007b0| 54 49 43 20 52 45 4c 5f | 52 4f 57 3a 3d 7b 30 2c |TIC REL_|ROW:={0,|
|000007c0| 30 2c 30 2c 30 7d 0d 0a | 53 54 41 54 49 43 20 52 |0,0,0}..|STATIC R|
|000007d0| 45 4c 5f 43 4f 4c 3a 3d | 7b 30 2c 30 2c 30 2c 30 |EL_COL:=|{0,0,0,0|
|000007e0| 7d 20 2f 2f 20 52 45 4c | 41 54 49 56 45 20 50 4f |} // REL|ATIVE PO|
|000007f0| 53 54 49 4f 4e 53 20 4f | 46 20 43 55 52 53 4f 52 |STIONS O|F CURSOR|
|00000800| 20 57 49 54 48 49 4e 20 | 57 49 4e 44 4f 57 0d 0a | WITHIN |WINDOW..|
|00000810| 0d 0a 53 54 41 54 49 43 | 20 61 46 49 4c 45 5b 34 |..STATIC| aFILE[4|
|00000820| 5d 20 2f 2f 20 4c 49 4e | 45 20 41 4e 44 20 43 4f |] // LIN|E AND CO|
|00000830| 4c 53 20 41 4e 44 20 46 | 49 4c 45 20 4e 41 4d 45 |LS AND F|ILE NAME|
|00000840| 0d 0a 0d 0a 53 54 41 54 | 49 43 20 63 46 55 4e 43 |....STAT|IC cFUNC|
|00000850| 31 20 2f 2f 20 50 52 47 | 20 46 49 4c 45 20 45 44 |1 // PRG| FILE ED|
|00000860| 49 54 45 44 20 57 49 54 | 48 49 4e 20 54 48 45 20 |ITED WIT|HIN THE |
|00000870| 43 55 52 52 45 4e 54 20 | 46 49 4c 45 0d 0a 0d 0a |CURRENT |FILE....|
|00000880| 53 54 41 54 49 43 20 4d | 59 5f 43 4f 4c 4f 52 3a |STATIC M|Y_COLOR:|
|00000890| 3d 27 42 2f 57 2c 57 2b | 2f 42 2c 2c 2c 4e 2b 2f |='B/W,W+|/B,,,N+/|
|000008a0| 57 27 2f 2f 53 54 41 4e | 44 41 52 44 20 43 4f 4c |W'//STAN|DARD COL|
|000008b0| 4f 52 53 0d 0a 53 54 41 | 54 49 43 20 63 4e 45 57 |ORS..STA|TIC cNEW|
|000008c0| 43 4f 4c 3a 3d 27 57 2f | 42 27 2f 2f 20 46 49 4c |COL:='W/|B'// FIL|
|000008d0| 45 20 4e 41 4d 45 20 48 | 49 4c 49 54 45 20 43 4f |E NAME H|ILITE CO|
|000008e0| 4c 4f 52 53 0d 0a 53 54 | 41 54 49 43 20 41 5f 43 |LORS..ST|ATIC A_C|
|000008f0| 4f 4c 53 3a 3d 7b 27 42 | 4c 41 43 4b 27 2c 27 42 |OLS:={'B|LACK','B|
|00000900| 4c 55 45 27 2c 27 47 52 | 45 45 4e 27 2c 27 43 59 |LUE','GR|EEN','CY|
|00000910| 41 4e 27 2c 27 52 45 44 | 27 2c 27 4d 41 47 45 4e |AN','RED|','MAGEN|
|00000920| 54 41 27 2c 27 42 52 4f | 57 4e 27 2c 27 57 48 49 |TA','BRO|WN','WHI|
|00000930| 54 45 27 2c 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |TE',;.. |        |
|00000940| 20 27 47 52 41 59 27 2c | 27 42 52 49 47 48 54 20 | 'GRAY',|'BRIGHT |
|00000950| 42 4c 55 45 27 2c 27 42 | 52 49 47 48 54 20 47 52 |BLUE','B|RIGHT GR|
|00000960| 45 45 4e 27 2c 27 42 52 | 49 47 48 54 20 43 59 41 |EEN','BR|IGHT CYA|
|00000970| 4e 27 2c 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |N',;..  |        |
|00000980| 27 42 52 49 47 48 54 20 | 52 45 44 27 2c 27 42 52 |'BRIGHT |RED','BR|
|00000990| 49 47 48 54 20 4d 41 47 | 45 4e 54 41 27 2c 27 59 |IGHT MAG|ENTA','Y|
|000009a0| 45 4c 4c 4f 57 27 2c 27 | 42 52 49 47 48 54 20 57 |ELLOW','|BRIGHT W|
|000009b0| 48 49 54 45 27 7d 0d 0a | 53 54 41 54 49 43 20 41 |HITE'}..|STATIC A|
|000009c0| 5f 43 43 4f 44 45 3a 3d | 7b 27 4e 27 2c 27 42 27 |_CCODE:=|{'N','B'|
|000009d0| 2c 27 47 27 2c 27 42 47 | 27 2c 27 52 27 2c 27 52 |,'G','BG|','R','R|
|000009e0| 42 27 2c 27 47 52 27 2c | 27 57 27 2c 27 4e 2b 27 |B','GR',|'W','N+'|
|000009f0| 2c 27 42 2b 27 2c 27 47 | 2b 27 2c 27 42 47 2b 27 |,'B+','G|+','BG+'|
|00000a00| 2c 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 27 52 |,;..    |      'R|
|00000a10| 2b 27 2c 27 52 42 2b 27 | 2c 27 47 52 2b 27 2c 27 |+','RB+'|,'GR+','|
|00000a20| 57 2b 27 7d 0d 0a 0d 0a | 53 54 41 54 49 43 20 4e |W+'}....|STATIC N|
|00000a30| 5f 45 44 49 54 3a 3d 30 | 20 20 2f 2f 4e 55 4d 42 |_EDIT:=0|  //NUMB|
|00000a40| 45 52 20 4f 46 20 54 45 | 58 54 20 42 4c 4f 43 4b |ER OF TE|XT BLOCK|
|00000a50| 20 4d 41 52 4b 45 52 53 | 0d 0a 53 54 41 54 49 43 | MARKERS|..STATIC|
|00000a60| 20 54 5f 42 55 46 46 3a | 3d 27 27 20 2f 2f 54 45 | T_BUFF:|='' //TE|
|00000a70| 58 54 20 42 55 46 46 45 | 52 20 56 41 52 0d 0a 53 |XT BUFFE|R VAR..S|
|00000a80| 54 41 54 49 43 20 4d 5f | 43 4f 4c 20 2f 2f 4d 45 |TATIC M_|COL //ME|
|00000a90| 4d 4f 20 43 4f 4c 55 4d | 4e 0d 0a 53 54 41 54 49 |MO COLUM|N..STATI|
|00000aa0| 43 20 4d 5f 52 4f 57 20 | 2f 2f 4d 45 4d 4f 20 52 |C M_ROW |//MEMO R|
|00000ab0| 4f 57 0d 0a 53 54 41 54 | 49 43 20 64 5f 70 61 74 |OW..STAT|IC d_pat|
|00000ac0| 68 5b 34 5d 0d 0a 53 54 | 41 54 49 43 20 46 5f 53 |h[4]..ST|ATIC F_S|
|00000ad0| 41 56 45 3a 3d 27 4e 27 | 20 2f 2f 20 41 55 54 4f |AVE:='N'| // AUTO|
|00000ae0| 4d 41 54 49 43 20 46 49 | 4c 45 20 53 41 56 45 53 |MATIC FI|LE SAVES|
|00000af0| 0d 0a 53 54 41 54 49 43 | 20 50 41 54 48 5b 34 5d |..STATIC| PATH[4]|
|00000b00| 0d 0a 73 74 61 74 69 63 | 20 73 63 72 5f 65 65 6e |..static| scr_een|
|00000b10| 0d 0a 2f 2f 53 54 41 54 | 49 43 20 50 41 54 48 3a |..//STAT|IC PATH:|
|00000b20| 3d 7b 27 43 3a 5c 27 2c | 27 43 3a 5c 2c 27 43 3a |={'C:\',|'C:\,'C:|
|00000b30| 5c 27 2c 27 43 3a 5c 27 | 7d 0d 0a 53 54 41 54 49 |\','C:\'|}..STATI|
|00000b40| 43 20 46 49 4c 45 53 45 | 4c 45 43 54 3a 3d 27 2a |C FILESE|LECT:='*|
|00000b50| 27 0d 0a 73 74 61 74 69 | 63 20 6e 5f 74 61 62 3a |'..stati|c n_tab:|
|00000b60| 3d 30 0d 0a 73 74 61 74 | 69 63 20 73 63 73 0d 0a |=0..stat|ic scs..|
|00000b70| 73 74 61 74 69 63 20 6d | 5f 6c 69 6e 65 73 0d 0a |static m|_lines..|
|00000b80| 73 74 61 74 69 63 20 6c | 69 6e 65 5f 6c 65 6e 3a |static l|ine_len:|
|00000b90| 3d 31 36 30 0d 0a 73 74 | 61 74 69 63 20 70 61 64 |=160..st|atic pad|
|00000ba0| 5f 6c 69 6e 65 0d 0a 73 | 74 61 74 69 63 20 6e 5f |_line..s|tatic n_|
|00000bb0| 74 61 62 5f 6c 65 6e 3a | 3d 34 0d 0a 73 74 61 74 |tab_len:|=4..stat|
|00000bc0| 69 63 20 64 62 75 70 61 | 74 68 3a 3d 27 27 0d 0a |ic dbupa|th:=''..|
|00000bd0| 73 74 61 74 69 63 20 74 | 73 65 63 73 0d 0a 73 74 |static t|secs..st|
|00000be0| 61 74 69 63 20 69 73 6d | 6f 75 73 65 3a 3d 2e 66 |atic ism|ouse:=.f|
|00000bf0| 2e 2c 20 6d 6f 75 73 65 | 5f 6f 6e 3a 3d 2e 66 2e |., mouse|_on:=.f.|
|00000c00| 0d 0a 73 74 61 74 69 63 | 20 6e 67 70 61 74 68 3a |..static| ngpath:|
|00000c10| 3d 27 43 3a 5c 4e 47 27 | 0d 0a 73 74 61 74 69 63 |='C:\NG'|..static|
|00000c20| 20 6e 67 64 69 72 2c 20 | 6e 67 6e 61 6d 65 73 3a | ngdir, |ngnames:|
|00000c30| 3d 7b 7d 2c 6e 67 6e 61 | 6d 65 3a 3d 28 27 47 52 |={},ngna|me:=('GR|
|00000c40| 55 4d 50 2e 4e 47 27 29 | 0d 0a 0d 0a 46 55 4e 43 |UMP.NG')|....FUNC|
|00000c50| 54 49 4f 4e 20 53 54 41 | 52 54 55 50 28 66 69 6c |TION STA|RTUP(fil|
|00000c60| 65 5a 29 0d 0a 0d 0a 4c | 4f 43 41 4c 20 63 43 48 |eZ)....L|OCAL cCH|
|00000c70| 4f 49 43 45 2c 69 0d 0a | 4c 4f 43 41 4c 20 43 48 |OICE,i..|LOCAL CH|
|00000c80| 3a 3d 30 0d 0a 73 65 74 | 62 6c 69 6e 6b 28 2e 66 |:=0..set|blink(.f|
|00000c90| 2e 29 0d 0a 73 65 74 20 | 70 61 74 68 20 74 6f 20 |.)..set |path to |
|00000ca0| 65 3a 5c 3b 20 64 3a 5c | 0d 0a 20 20 20 20 20 20 |e:\; d:\|..      |
|00000cb0| 20 20 20 20 0d 0a 2f 2f | 6e 67 64 69 72 3a 3d 6e |    ..//|ngdir:=n|
|00000cc0| 67 64 69 72 28 6e 67 70 | 61 74 68 29 20 20 20 20 |gdir(ngp|ath)    |
|00000cd0| 20 20 20 20 20 20 0d 0a | 0d 0a 2f 2f 61 65 76 61 |      ..|..//aeva|
|00000ce0| 6c 28 6e 67 64 69 72 2c | 7b 7c 78 7c 61 61 64 64 |l(ngdir,|{|x|aadd|
|00000cf0| 28 6e 67 6e 61 6d 65 73 | 2c 78 5b 32 5d 29 7d 29 |(ngnames|,x[2])})|
|00000d00| 0d 0a 67 66 73 61 76 65 | 65 6e 76 28 2e 74 2e 29 |..gfsave|env(.t.)|
|00000d10| 0d 0a 68 65 6c 70 73 65 | 74 28 27 7a 65 75 73 68 |..helpse|t('zeush|
|00000d20| 65 6c 70 27 29 0d 0a 73 | 65 74 20 6b 65 79 20 32 |elp')..s|et key 2|
|00000d30| 38 20 74 6f 20 68 65 6c | 70 64 65 76 0d 0a 73 65 |8 to hel|pdev..se|
|00000d40| 74 20 6b 65 79 09 4b 5f | 41 4c 54 5f 51 20 74 6f |t key.K_|ALT_Q to|
|00000d50| 20 70 6f 70 63 61 6c 63 | 0d 0a 73 65 74 20 6b 65 | popcalc|..set ke|
|00000d60| 79 20 4b 5f 41 4c 54 5f | 57 20 74 6f 20 67 72 75 |y K_ALT_|W to gru|
|00000d70| 6d 70 63 61 6c 63 0d 0a | 0d 0a 2f 2f 73 65 74 6b |mpcalc..|..//setk|
|00000d80| 65 79 28 4b 5f 53 48 5f | 46 31 2c 7b 7c 7c 6e 67 |ey(K_SH_|F1,{||ng|
|00000d90| 76 69 65 77 28 6e 67 70 | 61 74 68 2c 6e 67 6e 61 |view(ngp|ath,ngna|
|00000da0| 6d 65 2c 2e 74 2e 29 7d | 29 0d 0a 0d 0a 6b 65 79 |me,.t.)}|)....key|
|00000db0| 62 6f 61 72 64 20 63 68 | 72 28 4b 5f 4c 45 46 54 |board ch|r(K_LEFT|
|00000dc0| 29 0d 0a 0d 0a 74 73 65 | 63 73 3a 3d 73 65 63 6f |)....tse|cs:=seco|
|00000dd0| 6e 64 73 28 29 0d 0a 61 | 66 69 6c 6c 28 64 5f 70 |nds()..a|fill(d_p|
|00000de0| 61 74 68 2c 27 27 29 0d | 0a 61 66 69 6c 6c 28 70 |ath,'').|.afill(p|
|00000df0| 61 74 68 2c 27 27 29 0d | 0a 0d 0a 70 61 64 5f 6c |ath,'').|...pad_l|
|00000e00| 69 6e 65 3a 3d 73 70 61 | 63 65 28 32 29 0d 0a 0d |ine:=spa|ce(2)...|
|00000e10| 0a 66 6f 72 20 69 3a 3d | 20 31 20 74 6f 20 34 0d |.for i:=| 1 to 4.|
|00000e20| 0a 20 20 0d 0a 20 20 64 | 5f 70 61 74 68 5b 69 5d |.  ..  d|_path[i]|
|00000e30| 3a 3d 63 68 72 28 63 75 | 72 64 69 73 6b 28 29 2b |:=chr(cu|rdisk()+|
|00000e40| 61 73 63 28 27 41 27 29 | 29 0d 0a 20 20 70 61 74 |asc('A')|)..  pat|
|00000e50| 68 5b 69 5d 3a 3d 63 75 | 72 64 69 72 28 29 0d 0a |h[i]:=cu|rdir()..|
|00000e60| 20 20 0d 0a 20 20 64 5f | 70 61 74 68 5b 69 5d 3a |  ..  d_|path[i]:|
|00000e70| 3d 64 5f 70 61 74 68 5b | 69 5d 2b 27 3a 5c 27 2b |=d_path[|i]+':\'+|
|00000e80| 70 61 74 68 5b 69 5d 0d | 0a 20 20 0d 0a 20 20 20 |path[i].|.  ..   |
|00000e90| 20 69 66 28 6c 65 6e 28 | 70 61 74 68 5b 69 5d 29 | if(len(|path[i])|
|00000ea0| 3e 3d 31 2c 64 5f 70 61 | 74 68 5b 69 5d 3a 3d 64 |>=1,d_pa|th[i]:=d|
|00000eb0| 5f 70 61 74 68 5b 69 5d | 2b 27 5c 27 2c 31 29 0d |_path[i]|+'\',1).|
|00000ec0| 0a 20 20 0d 0a 6e 65 78 | 74 0d 0a 0d 0a 0d 0a 73 |.  ..nex|t......s|
|00000ed0| 65 74 6d 6f 64 65 28 32 | 35 2c 38 30 29 0d 0a 0d |etmode(2|5,80)...|
|00000ee0| 0a 0d 0a 73 65 74 20 64 | 61 74 65 20 66 6f 72 6d |...set d|ate form|
|00000ef0| 61 74 20 27 44 44 2f 4d | 4d 2f 59 59 27 20 20 20 |at 'DD/M|M/YY'   |
|00000f00| 20 20 20 20 20 20 20 2f | 2f 7d 0d 0a 53 45 54 20 |       /|/}..SET |
|00000f10| 44 45 4c 45 54 45 44 20 | 4f 4e 20 20 20 20 20 20 |DELETED |ON      |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f30| 2f 2f 7d 0d 0a 53 45 54 | 20 57 52 41 50 20 4f 4e |//}..SET| WRAP ON|
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f50| 20 20 20 20 20 20 20 20 | 20 2f 2f 7d 20 53 54 41 |        | //} STA|
|00000f60| 4e 44 41 52 44 20 53 54 | 55 46 46 0d 0a 53 45 54 |NDARD ST|UFF..SET|
|00000f70| 20 53 43 4f 52 45 42 4f | 41 52 44 20 4f 4e 20 20 | SCOREBO|ARD ON  |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f90| 2f 2f 7d 0d 0a 53 45 54 | 20 43 4f 4c 4f 52 20 54 |//}..SET| COLOR T|
|00000fa0| 4f 20 28 4d 59 5f 43 4f | 4c 4f 52 29 20 20 20 20 |O (MY_CO|LOR)    |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 2f 2f 7d 0d 0a 52 45 |        | //}..RE|
|00000fc0| 41 44 49 4e 53 45 52 54 | 28 2e 54 2e 29 0d 0a 0d |ADINSERT|(.T.)...|
|00000fd0| 0a 69 73 4d 6f 75 73 65 | 3a 3d 4d 6f 75 73 65 49 |.isMouse|:=MouseI|
|00000fe0| 6e 69 74 28 40 62 75 74 | 74 73 29 0d 0a 0d 0a 2f |nit(@but|ts)..../|
|00000ff0| 2f 73 65 74 20 67 72 61 | 70 68 69 63 73 20 6f 6e |/set gra|phics on|
|00001000| 0d 0a 2f 2f 73 65 74 20 | 6d 6f 75 73 65 20 6f 6e |..//set |mouse on|
|00001010| 20 0d 0a 2f 2f 73 65 74 | 20 67 72 61 70 68 69 63 | ..//set| graphic|
|00001020| 73 20 6f 66 66 0d 0a 2f | 2f 63 6c 73 0d 0a 69 66 |s off../|/cls..if|
|00001030| 20 69 73 6d 6f 75 73 65 | 0d 0a 20 20 2f 2f 6d 6f | ismouse|..  //mo|
|00001040| 75 73 65 6f 6e 28 29 0d | 0a 20 20 63 6c 73 0d 0a |useon().|.  cls..|
|00001050| 65 6e 64 69 66 0d 0a 75 | 73 65 20 5a 45 55 53 44 |endif..u|se ZEUSD|
|00001060| 45 46 20 6e 65 77 0d 0a | 73 65 74 63 6f 6c 6f 72 |EF new..|setcolor|
|00001070| 28 5a 45 55 53 44 45 46 | 2d 3e 43 4f 4c 4f 52 29 |(ZEUSDEF|->COLOR)|
|00001080| 0d 0a 69 66 20 65 6d 70 | 74 79 28 66 69 6c 65 7a |..if emp|ty(filez|
|00001090| 29 0d 0a 20 20 66 69 6c | 65 7a 3a 3d 69 66 28 21 |)..  fil|ez:=if(!|
|000010a0| 65 6d 70 74 79 28 7a 65 | 75 73 64 65 66 2d 3e 66 |empty(ze|usdef->f|
|000010b0| 69 6c 65 6e 61 6d 65 29 | 2c 61 6c 6c 74 72 69 6d |ilename)|,alltrim|
|000010c0| 28 5a 45 55 53 44 45 46 | 2d 3e 46 49 4c 45 4e 41 |(ZEUSDEF|->FILENA|
|000010d0| 4d 45 29 2c 66 69 6c 65 | 7a 29 0d 0a 20 20 6e 4c |ME),file|z)..  nL|
|000010e0| 69 6e 65 31 5b 31 5d 3a | 3d 7a 65 75 73 64 65 66 |ine1[1]:|=zeusdef|
|000010f0| 2d 3e 72 6f 77 0d 0a 20 | 20 6e 43 6f 6c 31 5b 31 |->row.. | nCol1[1|
|00001100| 5d 3a 3d 7a 65 75 73 64 | 65 66 2d 3e 63 6f 6c 0d |]:=zeusd|ef->col.|
|00001110| 0a 20 20 72 65 6c 5f 72 | 6f 77 5b 31 5d 3a 3d 7a |.  rel_r|ow[1]:=z|
|00001120| 65 75 73 64 65 66 2d 3e | 72 65 6c 72 6f 77 0d 0a |eusdef->|relrow..|
|00001130| 20 20 72 65 6c 5f 63 6f | 6c 5b 31 5d 3a 3d 7a 65 |  rel_co|l[1]:=ze|
|00001140| 75 73 64 65 66 2d 3e 72 | 65 6c 63 6f 6c 0d 0a 20 |usdef->r|elcol.. |
|00001150| 20 69 66 20 66 69 6c 65 | 28 66 69 6c 65 7a 29 0d | if file|(filez).|
|00001160| 0a 20 20 6d 4d 59 46 49 | 4c 45 5b 6e 44 49 53 50 |.  mMYFI|LE[nDISP|
|00001170| 5d 3a 3d 4d 45 4d 4f 52 | 45 41 44 28 46 49 4c 45 |]:=MEMOR|EAD(FILE|
|00001180| 5a 29 0d 0a 20 20 65 6e | 64 69 66 0d 0a 20 20 61 |Z)..  en|dif..  a|
|00001190| 46 49 4c 45 5b 6e 44 49 | 53 50 5d 3a 3d 46 49 4c |FILE[nDI|SP]:=FIL|
|000011a0| 45 5a 0d 0a 20 20 69 66 | 20 66 69 6c 65 28 66 69 |EZ..  if| file(fi|
|000011b0| 6c 65 7a 29 2e 61 6e 64 | 2e 61 74 28 27 5c 27 2c |lez).and|.at('\',|
|000011c0| 46 49 4c 45 5a 29 3e 30 | 0d 0a 20 20 20 20 64 5f |FILEZ)>0|..    d_|
|000011d0| 70 61 74 68 5b 6e 44 69 | 73 70 5d 3a 3d 27 27 0d |path[nDi|sp]:=''.|
|000011e0| 0a 20 20 20 20 70 61 74 | 68 5b 6e 44 69 73 70 5d |.    pat|h[nDisp]|
|000011f0| 3a 3d 27 27 0d 0a 20 20 | 65 6e 64 69 66 0d 0a 20 |:=''..  |endif.. |
|00001200| 20 0d 0a 65 6c 73 65 49 | 46 20 46 49 4c 45 28 46 | ..elseI|F FILE(F|
|00001210| 49 4c 45 5a 29 0d 0a 20 | 20 6d 4d 59 46 49 4c 45 |ILEZ).. | mMYFILE|
|00001220| 5b 6e 44 49 53 50 5d 3a | 3d 4d 45 4d 4f 52 45 41 |[nDISP]:|=MEMOREA|
|00001230| 44 28 46 49 4c 45 5a 29 | 0d 0a 20 20 61 46 49 4c |D(FILEZ)|..  aFIL|
|00001240| 45 5b 6e 44 49 53 50 5d | 3a 3d 46 49 4c 45 5a 0d |E[nDISP]|:=FILEZ.|
|00001250| 0a 20 20 69 66 20 61 74 | 28 27 5c 27 2c 46 49 4c |.  if at|('\',FIL|
|00001260| 45 5a 29 3e 30 0d 0a 20 | 20 20 20 64 5f 70 61 74 |EZ)>0.. |   d_pat|
|00001270| 68 5b 6e 44 69 73 70 5d | 3a 3d 27 27 0d 0a 20 20 |h[nDisp]|:=''..  |
|00001280| 20 20 70 61 74 68 5b 6e | 44 69 73 70 5d 3a 3d 27 |  path[n|Disp]:='|
|00001290| 27 0d 0a 20 20 65 6e 64 | 69 66 0d 0a 20 20 0d 0a |'..  end|if..  ..|
|000012a0| 45 4e 44 49 46 0d 0a 2f | 2f 4d 41 54 28 29 0d 0a |ENDIF../|/MAT()..|
|000012b0| 0d 0a 57 49 4e 44 53 28 | 29 0d 0a 67 66 72 65 73 |..WINDS(|)..gfres|
|000012c0| 74 65 6e 76 28 29 0d 0a | 0d 0a 52 45 54 55 52 4e |tenv()..|..RETURN|
|000012d0| 20 4e 49 4c 0d 0a 0d 0a | 0d 0a 0d 0a 46 55 4e 43 | NIL....|....FUNC|
|000012e0| 54 49 4f 4e 20 57 49 4e | 44 53 28 29 0d 0a 0d 0a |TION WIN|DS()....|
|000012f0| 53 54 41 54 49 43 20 49 | 20 20 20 20 20 20 20 20 |STATIC I|        |
|00001300| 20 20 20 20 20 2f 2f 20 | 49 4e 43 52 45 4d 45 4e |     // |INCREMEN|
|00001310| 54 41 4c 20 43 4f 55 4e | 54 45 52 0d 0a 53 54 41 |TAL COUN|TER..STA|
|00001320| 54 49 43 20 4a 3a 3d 30 | 20 20 20 20 20 20 20 20 |TIC J:=0|        |
|00001330| 20 20 2f 2f 20 44 49 54 | 54 4f 0d 0a 4c 4f 43 41 |  // DIT|TO..LOCA|
|00001340| 4c 20 63 46 4e 41 4d 45 | 2c 20 6e 43 6f 75 6e 74 |L cFNAME|, nCount|
|00001350| 0d 0a 6c 6f 63 61 6c 20 | 74 65 6d 70 76 61 72 5b |..local |tempvar[|
|00001360| 38 5d 2c 20 6c 2c 6d 2c | 6e 09 2c 7a 0d 0a 0d 0a |8], l,m,|n.,z....|
|00001370| 63 4f 50 45 52 3a 3d 53 | 50 41 43 45 28 30 29 0d |cOPER:=S|PACE(0).|
|00001380| 0a 7a 3a 3d 73 70 61 63 | 65 28 39 39 29 0d 0a 7a |.z:=spac|e(99)..z|
|00001390| 3a 3d 27 27 0d 0a 63 6c | 73 0d 0a 73 63 73 3a 3d |:=''..cl|s..scs:=|
|000013a0| 73 65 63 6f 6e 64 73 28 | 29 0d 0a 2f 2a 54 68 65 |seconds(|)../*The|
|000013b0| 20 6e 65 78 74 20 73 75 | 62 72 6f 75 74 69 6e 65 | next su|broutine|
|000013c0| 20 70 72 69 6e 74 73 20 | 65 69 74 68 65 72 20 31 | prints |either 1|
|000013d0| 2c 20 32 20 6f 72 20 34 | 20 62 6f 78 65 73 20 74 |, 2 or 4| boxes t|
|000013e0| 6f 20 74 68 65 20 73 63 | 72 65 65 6e 2e 20 44 65 |o the sc|reen. De|
|000013f0| 66 61 75 6c 74 0d 0a 69 | 73 20 31 2e 20 55 73 65 |fault..i|s 1. Use|
|00001400| 72 20 70 72 65 73 73 65 | 73 20 46 31 33 20 74 6f |r presse|s F13 to|
|00001410| 20 63 68 61 6e 67 65 20 | 6e 75 6d 62 65 72 20 6f | change |number o|
|00001420| 66 20 77 69 6e 64 6f 77 | 73 2e 2a 2f 0d 0a 0d 0a |f window|s.*/....|
|00001430| 0d 0a 44 4f 20 57 48 49 | 4c 45 20 2e 54 2e 0d 0a |..DO WHI|LE .T...|
|00001440| 20 20 0d 0a 20 20 2f 2f | 20 20 63 6c 73 0d 0a 20 |  ..  //|  cls.. |
|00001450| 20 0d 0a 20 20 49 66 20 | 6e 57 49 4e 3d 31 0d 0a | ..  If |nWIN=1..|
|00001460| 20 20 20 20 0d 0a 20 20 | 20 20 40 20 6e 54 5b 31 |    ..  |  @ nT[1|
|00001470| 5d 2c 6e 4c 5b 31 5d 20 | 20 54 4f 20 6e 42 5b 31 |],nL[1] | TO nB[1|
|00001480| 5d 2c 20 6e 52 5b 31 5d | 20 44 4f 55 42 4c 45 0d |], nR[1]| DOUBLE.|
|00001490| 0a 20 20 20 20 66 6f 72 | 20 6e 43 6f 75 6e 74 3d |.    for| nCount=|
|000014a0| 32 20 74 6f 20 6e 42 5b | 31 5d 2d 31 0d 0a 20 20 |2 to nB[|1]-1..  |
|000014b0| 20 20 20 20 0d 0a 20 20 | 20 20 20 20 40 20 6e 54 |    ..  |    @ nT|
|000014c0| 5b 31 5d 2b 6e 43 6f 75 | 6e 74 2c 20 6e 52 5b 31 |[1]+nCou|nt, nR[1|
|000014d0| 5d 20 73 61 79 20 63 68 | 72 28 31 37 38 29 20 2f |] say ch|r(178) /|
|000014e0| 2f 20 73 63 72 6f 6c 6c | 20 62 61 72 0d 0a 20 20 |/ scroll| bar..  |
|000014f0| 20 20 20 20 0d 0a 20 20 | 20 20 6e 65 78 74 0d 0a |    ..  |  next..|
|00001500| 20 20 20 20 0d 0a 20 20 | 20 20 73 62 5f 6c 65 6e |    ..  |  sb_len|
|00001510| 3a 3d 6e 42 5b 31 5d 2d | 33 0d 0a 20 20 20 20 20 |:=nB[1]-|3..     |
|00001520| 20 49 46 28 61 46 49 4c | 45 5b 31 5d 3d 3d 4e 49 | IF(aFIL|E[1]==NI|
|00001530| 4c 2c 63 46 4e 41 4d 45 | 3a 3d 27 55 4e 54 49 54 |L,cFNAME|:='UNTIT|
|00001540| 4c 45 44 27 2c 63 46 4e | 41 4d 45 3a 3d 61 46 49 |LED',cFN|AME:=aFI|
|00001550| 4c 45 5b 31 5d 29 0d 0a | 20 20 20 20 48 49 43 4f |LE[1])..|    HICO|
|00001560| 4c 28 27 4f 4e 27 29 0d | 0a 20 20 20 20 0d 0a 20 |L('ON').|.    .. |
|00001570| 20 20 20 40 20 6e 54 5b | 31 5d 2b 31 2c 6e 4c 5b |   @ nT[|1]+1,nL[|
|00001580| 31 5d 2b 31 20 53 41 59 | 20 50 41 44 43 28 64 5f |1]+1 SAY| PADC(d_|
|00001590| 70 61 74 68 5b 6e 44 69 | 73 70 5d 2b 63 46 4e 41 |path[nDi|sp]+cFNA|
|000015a0| 4d 45 2c 6e 52 5b 31 5d | 2d 4e 4c 5b 31 5d 2d 31 |ME,nR[1]|-NL[1]-1|
|000015b0| 29 0d 0a 20 20 20 20 0d | 0a 20 20 20 20 48 49 43 |)..    .|.    HIC|
|000015c0| 4f 4c 28 27 4f 46 46 27 | 29 0d 0a 20 20 20 20 0d |OL('OFF'|)..    .|
|000015d0| 0a 20 20 20 20 4a 3a 3d | 31 0d 0a 20 20 20 20 0d |.    J:=|1..    .|
|000015e0| 0a 20 20 45 4c 53 45 49 | 46 20 6e 57 49 4e 3d 32 |.  ELSEI|F nWIN=2|
|000015f0| 0d 0a 20 20 20 20 0d 0a | 20 20 20 20 40 20 6e 54 |..    ..|    @ nT|
|00001600| 5b 32 5d 2c 6e 4c 5b 32 | 5d 20 20 54 4f 20 6e 42 |[2],nL[2|]  TO nB|
|00001610| 5b 32 5d 2c 20 6e 52 5b | 32 5d 0d 0a 20 20 20 20 |[2], nR[|2]..    |
|00001620| 0d 0a 20 20 20 20 20 20 | 49 46 28 61 46 49 4c 45 |..      |IF(aFILE|
|00001630| 5b 31 5d 3d 3d 4e 49 4c | 2c 63 46 4e 41 4d 45 3a |[1]==NIL|,cFNAME:|
|00001640| 3d 27 55 4e 54 49 54 4c | 45 44 27 2c 63 46 4e 41 |='UNTITL|ED',cFNA|
|00001650| 4d 45 3a 3d 61 46 49 4c | 45 5b 31 5d 29 0d 0a 20 |ME:=aFIL|E[1]).. |
|00001660| 20 20 20 48 49 43 4f 4c | 28 27 4f 4e 27 29 0d 0a |   HICOL|('ON')..|
|00001670| 20 20 20 20 0d 0a 20 20 | 20 20 40 20 6e 54 5b 32 |    ..  |  @ nT[2|
|00001680| 5d 2b 31 2c 6e 4c 5b 32 | 5d 2b 31 20 53 41 59 20 |]+1,nL[2|]+1 SAY |
|00001690| 50 41 44 43 28 64 5f 70 | 61 74 68 5b 31 5d 2b 63 |PADC(d_p|ath[1]+c|
|000016a0| 46 4e 41 4d 45 2c 6e 52 | 5b 32 5d 2d 4e 4c 5b 32 |FNAME,nR|[2]-NL[2|
|000016b0| 5d 2d 31 29 0d 0a 20 20 | 20 20 48 49 43 4f 4c 28 |]-1)..  |  HICOL(|
|000016c0| 27 4f 46 46 27 29 0d 0a | 20 20 20 20 0d 0a 20 20 |'OFF')..|    ..  |
|000016d0| 20 20 40 20 6e 54 5b 33 | 5d 2c 6e 4c 5b 33 5d 20 |  @ nT[3|],nL[3] |
|000016e0| 20 54 4f 20 6e 42 5b 33 | 5d 2c 20 6e 52 5b 33 5d | TO nB[3|], nR[3]|
|000016f0| 0d 0a 20 20 20 20 0d 0a | 20 20 20 20 20 20 49 46 |..    ..|      IF|
|00001700| 28 61 46 49 4c 45 5b 32 | 5d 3d 3d 4e 49 4c 2c 63 |(aFILE[2|]==NIL,c|
|00001710| 46 4e 41 4d 45 3a 3d 27 | 55 4e 54 49 54 4c 45 44 |FNAME:='|UNTITLED|
|00001720| 27 2c 63 46 4e 41 4d 45 | 3a 3d 61 46 49 4c 45 5b |',cFNAME|:=aFILE[|
|00001730| 32 5d 29 0d 0a 20 20 20 | 20 0d 0a 20 20 20 20 48 |2])..   | ..    H|
|00001740| 49 43 4f 4c 28 27 4f 4e | 27 29 0d 0a 20 20 20 20 |ICOL('ON|')..    |
|00001750| 0d 0a 20 20 20 20 40 20 | 6e 54 5b 33 5d 2b 31 2c |..    @ |nT[3]+1,|
|00001760| 6e 4c 5b 33 5d 2b 31 20 | 53 41 59 20 50 41 44 43 |nL[3]+1 |SAY PADC|
|00001770| 28 64 5f 70 61 74 68 5b | 32 5d 2b 63 46 4e 41 4d |(d_path[|2]+cFNAM|
|00001780| 45 2c 6e 52 5b 33 5d 2d | 4e 4c 5b 33 5d 2d 31 29 |E,nR[3]-|NL[3]-1)|
|00001790| 0d 0a 20 20 20 20 48 49 | 43 4f 4c 28 27 4f 46 46 |..    HI|COL('OFF|
|000017a0| 27 29 0d 0a 20 20 20 20 | 0d 0a 20 20 20 20 4a 3a |')..    |..    J:|
|000017b0| 3d 6e 44 49 53 50 2b 31 | 0d 0a 20 20 20 20 0d 0a |=nDISP+1|..    ..|
|000017c0| 20 20 20 20 40 20 6e 54 | 5b 4a 5d 2c 6e 4c 5b 4a |    @ nT|[J],nL[J|
|000017d0| 5d 20 20 54 4f 20 6e 42 | 5b 4a 5d 2c 20 6e 52 5b |]  TO nB|[J], nR[|
|000017e0| 4a 5d 20 44 4f 55 42 4c | 45 0d 0a 20 20 20 20 0d |J] DOUBL|E..    .|
|000017f0| 0a 20 20 20 20 6b 65 79 | 62 6f 61 72 64 20 63 68 |.    key|board ch|
|00001800| 72 28 4b 5f 45 53 43 29 | 0d 0a 20 20 20 20 0d 0a |r(K_ESC)|..    ..|
|00001810| 20 20 20 20 4d 45 4d 4f | 45 44 49 54 3b 0d 0a 20 |    MEMO|EDIT;.. |
|00001820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6d 4d |        |     (mM|
|00001830| 59 46 49 4c 45 5b 31 5d | 2c 4e 54 5b 32 5d 2b 32 |YFILE[1]|,NT[2]+2|
|00001840| 2c 4e 4c 5b 32 5d 2b 31 | 2c 4e 42 5b 32 5d 2d 31 |,NL[2]+1|,NB[2]-1|
|00001850| 2c 4e 52 5b 32 5d 2d 31 | 2c 2c 2c 6c 69 6e 65 5f |,NR[2]-1|,,,line_|
|00001860| 6c 65 6e 2c 6e 5f 74 61 | 62 5f 6c 65 6e 2c 6e 4c |len,n_ta|b_len,nL|
|00001870| 49 4e 45 31 5b 31 5d 2c | 6e 43 4f 4c 31 5b 31 5d |INE1[1],|nCOL1[1]|
|00001880| 2c 52 45 4c 5f 52 4f 57 | 5b 31 5d 2c 52 45 4c 5f |,REL_ROW|[1],REL_|
|00001890| 43 4f 4c 5b 31 5d 29 0d | 0a 20 20 20 20 0d 0a 20 |COL[1]).|.    .. |
|000018a0| 20 20 20 6b 65 79 62 6f | 61 72 64 20 63 68 72 28 |   keybo|ard chr(|
|000018b0| 4b 5f 45 53 43 29 0d 0a | 20 20 20 20 0d 0a 20 20 |K_ESC)..|    ..  |
|000018c0| 20 20 4d 45 4d 4f 45 44 | 49 54 3b 0d 0a 20 20 20 |  MEMOED|IT;..   |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 4d 59 46 |        |   (mMYF|
|000018e0| 49 4c 45 5b 32 5d 2c 4e | 54 5b 33 5d 2b 32 2c 4e |ILE[2],N|T[3]+2,N|
|000018f0| 4c 5b 33 5d 2b 31 2c 4e | 42 5b 33 5d 2d 31 2c 4e |L[3]+1,N|B[3]-1,N|
|00001900| 52 5b 33 5d 2d 31 2c 2c | 2c 6c 69 6e 65 5f 6c 65 |R[3]-1,,|,line_le|
|00001910| 6e 2c 6e 5f 74 61 62 5f | 6c 65 6e 2c 6e 4c 49 4e |n,n_tab_|len,nLIN|
|00001920| 45 31 5b 32 5d 2c 6e 43 | 4f 4c 31 5b 32 5d 2c 52 |E1[2],nC|OL1[2],R|
|00001930| 45 4c 5f 52 4f 57 5b 32 | 5d 2c 52 45 4c 5f 43 4f |EL_ROW[2|],REL_CO|
|00001940| 4c 5b 32 5d 29 0d 0a 20 | 20 20 20 0d 0a 20 20 45 |L[2]).. |   ..  E|
|00001950| 4c 53 45 49 46 20 6e 57 | 49 4e 3d 34 0d 0a 20 20 |LSEIF nW|IN=4..  |
|00001960| 20 20 0d 0a 20 20 20 20 | 46 4f 52 20 49 20 3d 20 |  ..    |FOR I = |
|00001970| 34 20 54 4f 20 37 0d 0a | 20 20 20 20 20 20 0d 0a |4 TO 7..|      ..|
|00001980| 20 20 20 20 20 20 40 20 | 6e 54 5b 49 5d 2c 6e 4c |      @ |nT[I],nL|
|00001990| 5b 49 5d 20 20 54 4f 20 | 6e 42 5b 49 5d 2c 20 6e |[I]  TO |nB[I], n|
|000019a0| 52 5b 49 5d 0d 0a 20 20 | 20 20 20 20 0d 0a 20 20 |R[I]..  |    ..  |
|000019b0| 20 20 20 20 20 20 49 46 | 28 61 46 49 4c 45 5b 49 |      IF|(aFILE[I|
|000019c0| 2d 33 5d 3d 3d 4e 49 4c | 2c 63 46 4e 41 4d 45 3a |-3]==NIL|,cFNAME:|
|000019d0| 3d 27 55 4e 54 49 54 4c | 45 44 27 2c 63 46 4e 41 |='UNTITL|ED',cFNA|
|000019e0| 4d 45 3a 3d 61 46 49 4c | 45 5b 49 2d 33 5d 29 0d |ME:=aFIL|E[I-3]).|
|000019f0| 0a 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 48 |.      .|.      H|
|00001a00| 49 43 4f 4c 28 27 4f 4e | 27 29 0d 0a 20 20 20 20 |ICOL('ON|')..    |
|00001a10| 20 20 0d 0a 20 20 20 20 | 20 20 40 20 6e 54 5b 49 |  ..    |  @ nT[I|
|00001a20| 5d 2b 31 2c 6e 4c 5b 49 | 5d 2b 31 20 53 41 59 20 |]+1,nL[I|]+1 SAY |
|00001a30| 50 41 44 43 28 64 5f 70 | 61 74 68 5b 69 2d 33 5d |PADC(d_p|ath[i-3]|
|00001a40| 2b 63 46 4e 41 4d 45 2c | 6e 52 5b 49 5d 2d 4e 4c |+cFNAME,|nR[I]-NL|
|00001a50| 5b 49 5d 2d 31 29 0d 0a | 20 20 20 20 20 20 48 49 |[I]-1)..|      HI|
|00001a60| 43 4f 4c 28 27 4f 46 46 | 27 29 0d 0a 20 20 20 20 |COL('OFF|')..    |
|00001a70| 20 20 0d 0a 20 20 20 20 | 20 20 6b 65 79 62 6f 61 |  ..    |  keyboa|
|00001a80| 72 64 20 63 68 72 28 4b | 5f 45 53 43 29 0d 0a 20 |rd chr(K|_ESC).. |
|00001a90| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 4d 45 4d |     .. |     MEM|
|00001aa0| 4f 45 44 49 54 3b 0d 0a | 20 20 20 20 20 20 20 20 |OEDIT;..|        |
|00001ab0| 20 20 20 20 20 20 20 20 | 28 6d 4d 59 46 49 4c 45 |        |(mMYFILE|
|00001ac0| 5b 69 2d 33 5d 2c 4e 54 | 5b 69 5d 2b 32 2c 4e 4c |[i-3],NT|[i]+2,NL|
|00001ad0| 5b 69 5d 2b 31 2c 4e 42 | 5b 69 5d 2d 31 2c 4e 52 |[i]+1,NB|[i]-1,NR|
|00001ae0| 5b 69 5d 2d 31 2c 2c 2c | 6c 69 6e 65 5f 6c 65 6e |[i]-1,,,|line_len|
|00001af0| 2c 6e 5f 74 61 62 5f 6c | 65 6e 2c 6e 4c 49 4e 45 |,n_tab_l|en,nLINE|
|00001b00| 31 5b 69 2d 33 5d 2c 6e | 43 4f 4c 31 5b 69 2d 33 |1[i-3],n|COL1[i-3|
|00001b10| 5d 2c 52 45 4c 5f 52 4f | 57 5b 69 2d 33 5d 2c 52 |],REL_RO|W[i-3],R|
|00001b20| 45 4c 5f 43 4f 4c 5b 69 | 2d 33 5d 29 0d 0a 20 20 |EL_COL[i|-3])..  |
|00001b30| 20 20 20 20 0d 0a 20 20 | 20 20 20 20 0d 0a 20 20 |    ..  |    ..  |
|00001b40| 20 20 4e 45 58 54 20 49 | 0d 0a 20 20 20 20 0d 0a |  NEXT I|..    ..|
|00001b50| 20 20 20 20 4a 3a 3d 6e | 44 49 53 50 2b 33 0d 0a |    J:=n|DISP+3..|
|00001b60| 20 20 20 20 0d 0a 20 20 | 20 20 40 20 6e 54 5b 4a |    ..  |  @ nT[J|
|00001b70| 5d 2c 6e 4c 5b 4a 5d 20 | 20 54 4f 20 6e 42 5b 4a |],nL[J] | TO nB[J|
|00001b80| 5d 2c 20 6e 52 5b 4a 5d | 20 44 4f 55 42 4c 45 0d |], nR[J]| DOUBLE.|
|00001b90| 0a 20 20 20 20 0d 0a 20 | 20 45 4e 44 49 46 0d 0a |.    .. | ENDIF..|
|00001ba0| 20 20 0d 0a 20 20 63 46 | 4e 41 4d 45 3a 3d 61 46 |  ..  cF|NAME:=aF|
|00001bb0| 49 4c 45 5b 6e 44 49 53 | 50 5d 0d 0a 20 20 0d 0a |ILE[nDIS|P]..  ..|
|00001bc0| 20 20 0d 0a 20 20 6d 5f | 6c 69 6e 65 73 3a 3d 6d |  ..  m_|lines:=m|
|00001bd0| 65 6d 5f 63 6f 75 6e 74 | 28 6d 4d 79 66 69 6c 65 |em_count|(mMyfile|
|00001be0| 5b 6e 44 69 73 70 5d 29 | 0d 0a 20 20 0d 0a 20 20 |[nDisp])|..  ..  |
|00001bf0| 6d 4d 59 46 49 4c 45 5b | 6e 44 49 53 50 5d 20 3a |mMYFILE[|nDISP] :|
|00001c00| 3d 20 4d 45 4d 4f 45 44 | 49 54 3b 0d 0a 20 20 20 |= MEMOED|IT;..   |
|00001c10| 20 20 20 20 20 20 20 20 | 20 28 6d 4d 59 46 49 4c |        | (mMYFIL|
|00001c20| 45 5b 6e 44 49 53 50 5d | 2c 4e 54 5b 4a 5d 2b 32 |E[nDISP]|,NT[J]+2|
|00001c30| 2c 4e 4c 5b 4a 5d 2b 31 | 2c 4e 42 5b 4a 5d 2d 31 |,NL[J]+1|,NB[J]-1|
|00001c40| 2c 4e 52 5b 4a 5d 2d 31 | 2c 2e 54 2e 2c 3b 0d 0a |,NR[J]-1|,.T.,;..|
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 4d 45 4d |        |    "MEM|
|00001c60| 4f 43 4f 4e 54 52 4f 4c | 22 2c 6c 69 6e 65 5f 6c |OCONTROL|",line_l|
|00001c70| 65 6e 2c 6e 5f 74 61 62 | 5f 6c 65 6e 2c 6e 4c 49 |en,n_tab|_len,nLI|
|00001c80| 4e 45 31 5b 6e 44 49 53 | 50 5d 2c 6e 43 4f 4c 31 |NE1[nDIS|P],nCOL1|
|00001c90| 5b 6e 44 49 53 50 5d 2c | 52 45 4c 5f 52 4f 57 5b |[nDISP],|REL_ROW[|
|00001ca0| 6e 44 49 53 50 5d 2c 52 | 45 4c 5f 43 4f 4c 5b 6e |nDISP],R|EL_COL[n|
|00001cb0| 44 49 53 50 5d 29 0d 0a | 20 20 0d 0a 20 20 44 4f |DISP])..|  ..  DO|
|00001cc0| 20 43 41 53 45 0d 0a 20 | 20 20 20 0d 0a 20 20 43 | CASE.. |   ..  C|
|00001cd0| 41 53 45 20 63 4f 50 45 | 52 3d 3d 27 53 45 41 52 |ASE cOPE|R=='SEAR|
|00001ce0| 43 48 27 0d 0a 20 20 20 | 20 53 45 41 52 43 48 28 |CH'..   | SEARCH(|
|00001cf0| 30 29 0d 0a 20 20 20 20 | 0d 0a 20 20 43 41 53 45 |0)..    |..  CASE|
|00001d00| 20 63 4f 50 45 52 3d 3d | 27 51 53 45 41 52 43 48 | cOPER==|'QSEARCH|
|00001d10| 27 0d 0a 20 20 20 20 53 | 45 41 52 43 48 31 28 31 |'..    S|EARCH1(1|
|00001d20| 29 0d 0a 20 20 20 20 0d | 0a 20 20 43 41 53 45 20 |)..    .|.  CASE |
|00001d30| 63 4f 50 45 52 3d 3d 27 | 45 4e 44 27 0d 0a 20 20 |cOPER=='|END'..  |
|00001d40| 20 20 0d 0a 20 20 20 20 | 0d 0a 20 20 20 20 69 66 |  ..    |..    if|
|00001d50| 20 4d 53 41 56 45 28 63 | 46 6e 61 6d 65 29 3d 3d | MSAVE(c|Fname)==|
|00001d60| 2e 74 2e 0d 0a 20 20 20 | 20 20 20 0d 0a 20 20 20 |.t...   |   ..   |
|00001d70| 20 20 20 0d 0a 20 20 20 | 20 20 20 2f 2f 20 20 20 |   ..   |   //   |
|00001d80| 20 73 65 74 20 6d 6f 75 | 73 65 20 6f 66 66 0d 0a | set mou|se off..|
|00001d90| 20 20 20 20 20 20 2f 2f | 20 20 20 20 73 65 74 20 |      //|    set |
|00001da0| 67 72 61 70 68 69 63 73 | 20 6f 66 66 0d 0a 20 20 |graphics| off..  |
|00001db0| 20 20 20 20 0d 0a 20 20 | 20 20 20 20 6d 6f 75 73 |    ..  |    mous|
|00001dc0| 65 6f 66 66 28 29 0d 0a | 20 20 20 20 20 20 45 58 |eoff()..|      EX|
|00001dd0| 49 54 0d 0a 20 20 20 20 | 65 6c 73 65 20 0d 0a 20 |IT..    |else .. |
|00001de0| 20 20 20 20 20 6c 6f 6f | 70 0d 0a 20 20 20 20 65 |     loo|p..    e|
|00001df0| 6e 64 69 66 0d 0a 20 20 | 20 20 0d 0a 20 20 43 41 |ndif..  |  ..  CA|
|00001e00| 53 45 20 63 4f 50 45 52 | 3d 3d 27 53 57 49 54 43 |SE cOPER|=='SWITC|
|00001e10| 48 27 0d 0a 20 20 20 20 | 52 45 4d 42 4c 4f 43 4b |H'..    |REMBLOCK|
|00001e20| 53 28 29 0d 0a 20 20 20 | 20 4d 53 41 56 45 28 63 |S()..   | MSAVE(c|
|00001e30| 46 4e 41 4d 45 29 0d 0a | 20 20 20 20 6e 44 49 53 |FNAME)..|    nDIS|
|00001e40| 50 2b 3d 31 0d 0a 20 20 | 20 20 20 20 49 46 28 6e |P+=1..  |    IF(n|
|00001e50| 44 49 53 50 3e 6e 57 49 | 4e 2c 6e 44 49 53 50 3a |DISP>nWI|N,nDISP:|
|00001e60| 3d 31 2c 6e 44 49 53 50 | 3a 3d 6e 44 49 53 50 29 |=1,nDISP|:=nDISP)|
|00001e70| 0d 0a 20 20 20 20 4c 4f | 4f 50 0d 0a 20 20 20 20 |..    LO|OP..    |
|00001e80| 0d 0a 20 20 43 41 53 45 | 20 63 4f 50 45 52 3d 3d |..  CASE| cOPER==|
|00001e90| 27 53 45 4c 45 43 54 27 | 0d 0a 20 20 20 20 52 45 |'SELECT'|..    RE|
|00001ea0| 4d 42 4c 4f 43 4b 53 28 | 29 0d 0a 20 20 20 20 69 |MBLOCKS(|)..    i|
|00001eb0| 66 20 4d 53 41 56 45 28 | 63 46 4e 41 4d 45 29 20 |f MSAVE(|cFNAME) |
|00001ec0| 3d 3d 20 2e 74 2e 0d 0a | 20 20 20 20 20 20 61 46 |== .t...|      aF|
|00001ed0| 49 4c 45 5b 6e 44 49 53 | 50 5d 3a 3d 4f 50 45 4e |ILE[nDIS|P]:=OPEN|
|00001ee0| 46 28 29 0d 0a 20 20 20 | 20 20 20 49 46 20 61 46 |F()..   |   IF aF|
|00001ef0| 49 4c 45 5b 6e 44 49 53 | 50 5d 3c 3e 4e 49 4c 2e |ILE[nDIS|P]<>NIL.|
|00001f00| 41 4e 44 2e 61 46 49 4c | 45 5b 6e 44 49 53 50 5d |AND.aFIL|E[nDISP]|
|00001f10| 3c 3e 27 55 4e 54 49 54 | 4c 45 44 27 0d 0a 20 20 |<>'UNTIT|LED'..  |
|00001f20| 20 20 20 20 20 20 6d 4d | 59 46 49 4c 45 5b 6e 44 |      mM|YFILE[nD|
|00001f30| 49 53 50 5d 3a 3d 4d 45 | 4d 4f 52 45 41 44 28 28 |ISP]:=ME|MOREAD((|
|00001f40| 64 5f 70 61 74 68 5b 6e | 44 69 73 70 5d 29 2b 61 |d_path[n|Disp])+a|
|00001f50| 46 49 4c 45 5b 6e 44 49 | 53 50 5d 29 0d 0a 20 20 |FILE[nDI|SP])..  |
|00001f60| 20 20 20 20 45 4e 44 49 | 46 0d 0a 20 20 20 20 20 |    ENDI|F..     |
|00001f70| 20 43 4c 45 41 52 20 54 | 59 50 45 41 48 45 41 44 | CLEAR T|YPEAHEAD|
|00001f80| 0d 0a 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |..    en|dif..   |
|00001f90| 20 0d 0a 20 20 20 20 4c | 4f 4f 50 0d 0a 20 20 20 | ..    L|OOP..   |
|00001fa0| 20 0d 0a 20 20 43 41 53 | 45 20 63 4f 70 65 72 3d | ..  CAS|E cOper=|
|00001fb0| 3d 27 53 41 56 45 27 0d | 0a 20 20 20 20 72 65 6d |='SAVE'.|.    rem|
|00001fc0| 62 6c 6f 63 6b 73 28 29 | 0d 0a 20 20 20 20 6d 73 |blocks()|..    ms|
|00001fd0| 61 76 65 28 63 46 6e 61 | 6d 65 29 0d 0a 20 20 20 |ave(cFna|me)..   |
|00001fe0| 20 0d 0a 20 20 43 41 53 | 45 20 63 4f 50 45 52 3d | ..  CAS|E cOPER=|
|00001ff0| 3d 27 43 48 57 49 4e 27 | 0d 0a 20 20 20 20 6e 57 |='CHWIN'|..    nW|
|00002000| 49 4e 2b 3d 31 0d 0a 20 | 20 20 20 20 20 49 46 28 |IN+=1.. |     IF(|
|00002010| 6e 57 49 4e 3d 33 2c 6e | 57 49 4e 3a 3d 34 2c 6e |nWIN=3,n|WIN:=4,n|
|00002020| 57 49 4e 3a 3d 6e 57 49 | 4e 29 0d 0a 20 20 20 20 |WIN:=nWI|N)..    |
|00002030| 20 20 49 46 28 6e 57 49 | 4e 3e 34 2c 6e 57 49 4e |  IF(nWI|N>4,nWIN|
|00002040| 3a 3d 31 2c 6e 57 49 4e | 3a 3d 6e 57 49 4e 29 0d |:=1,nWIN|:=nWIN).|
|00002050| 0a 20 20 20 20 6e 44 49 | 53 50 3a 3d 31 0d 0a 20 |.    nDI|SP:=1.. |
|00002060| 20 20 20 43 4c 52 53 43 | 52 28 39 29 0d 0a 20 20 |   CLRSC|R(9)..  |
|00002070| 20 20 4c 4f 4f 50 0d 0a | 20 20 20 20 0d 0a 20 20 |  LOOP..|    ..  |
|00002080| 20 20 0d 0a 20 20 63 61 | 73 65 20 63 4f 70 65 72 |  ..  ca|se cOper|
|00002090| 3d 3d 27 43 48 57 49 4e | 31 27 0d 0a 20 20 20 20 |=='CHWIN|1'..    |
|000020a0| 0d 0a 20 20 20 20 69 66 | 20 6e 44 69 73 70 3c 3e |..    if| nDisp<>|
|000020b0| 31 0d 0a 20 20 20 20 20 | 20 74 65 6d 70 76 61 72 |1..     | tempvar|
|000020c0| 5b 31 5d 3a 3d 6d 4d 79 | 66 69 6c 65 5b 6e 44 69 |[1]:=mMy|file[nDi|
|000020d0| 73 70 5d 20 20 2f 2f 70 | 75 74 20 63 75 72 72 65 |sp]  //p|ut curre|
|000020e0| 6e 74 20 69 6e 20 66 69 | 6c 65 0d 0a 20 20 20 20 |nt in fi|le..    |
|000020f0| 20 20 74 65 6d 70 76 61 | 72 5b 32 5d 3a 3d 6e 4c |  tempva|r[2]:=nL|
|00002100| 69 6e 65 31 5b 6e 44 69 | 73 70 5d 0d 0a 20 20 20 |ine1[nDi|sp]..   |
|00002110| 20 20 20 74 65 6d 70 76 | 61 72 5b 33 5d 3a 3d 6e |   tempv|ar[3]:=n|
|00002120| 43 6f 6c 31 5b 6e 44 69 | 73 70 5d 0d 0a 20 20 20 |Col1[nDi|sp]..   |
|00002130| 20 20 20 74 65 6d 70 76 | 61 72 5b 34 5d 3a 3d 52 |   tempv|ar[4]:=R|
|00002140| 65 6c 5f 72 6f 77 5b 6e | 44 69 73 70 5d 0d 0a 20 |el_row[n|Disp].. |
|00002150| 20 20 20 20 20 74 65 6d | 70 76 61 72 5b 35 5d 3a |     tem|pvar[5]:|
|00002160| 3d 72 65 6c 5f 63 6f 6c | 5b 6e 44 69 73 70 5d 0d |=rel_col|[nDisp].|
|00002170| 0a 20 20 20 20 20 20 74 | 65 6d 70 76 61 72 5b 36 |.      t|empvar[6|
|00002180| 5d 3a 3d 70 61 74 68 5b | 6e 44 69 73 70 5d 0d 0a |]:=path[|nDisp]..|
|00002190| 20 20 20 20 20 20 74 65 | 6d 70 76 61 72 5b 37 5d |      te|mpvar[7]|
|000021a0| 3a 3d 64 5f 70 61 74 68 | 5b 6e 44 69 73 70 5d 0d |:=d_path|[nDisp].|
|000021b0| 0a 20 20 20 20 20 20 74 | 65 6d 70 76 61 72 5b 38 |.      t|empvar[8|
|000021c0| 5d 3a 3d 61 46 69 6c 65 | 5b 6e 44 69 73 70 5d 0d |]:=aFile|[nDisp].|
|000021d0| 0a 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 66 |.      .|.      f|
|000021e0| 6f 72 20 20 6d 20 3a 3d | 20 6e 44 69 73 70 20 74 |or  m :=| nDisp t|
|000021f0| 6f 20 31 20 73 74 65 70 | 20 2d 31 0d 0a 20 20 20 |o 1 step| -1..   |
|00002200| 20 20 20 20 20 0d 0a 20 | 20 20 20 20 20 20 20 69 |     .. |       i|
|00002210| 66 20 6d 20 3e 20 31 0d | 0a 20 20 20 20 20 20 20 |f m > 1.|.       |
|00002220| 20 20 20 6d 4d 79 66 69 | 6c 65 5b 6d 5d 3a 3d 6d |   mMyfi|le[m]:=m|
|00002230| 4d 79 66 69 6c 65 5b 6d | 2d 31 5d 0d 0a 20 20 20 |Myfile[m|-1]..   |
|00002240| 20 20 20 20 20 20 20 6e | 4c 69 6e 65 31 5b 6d 5d |       n|Line1[m]|
|00002250| 3a 3d 6e 4c 69 6e 65 31 | 5b 6d 2d 31 5d 0d 0a 20 |:=nLine1|[m-1].. |
|00002260| 20 20 20 20 20 20 20 20 | 20 6e 43 6f 6c 31 5b 6d |        | nCol1[m|
|00002270| 5d 3a 3d 6e 43 6f 6c 31 | 5b 6d 2d 31 5d 0d 0a 20 |]:=nCol1|[m-1].. |
|00002280| 20 20 20 20 20 20 20 20 | 20 72 65 6c 5f 72 6f 77 |        | rel_row|
|00002290| 5b 6d 5d 3a 3d 72 65 6c | 5f 72 6f 77 5b 6d 2d 31 |[m]:=rel|_row[m-1|
|000022a0| 5d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 70 61 74 |]..     |     pat|
|000022b0| 68 5b 6d 5d 3a 3d 70 61 | 74 68 5b 6d 2d 31 5d 0d |h[m]:=pa|th[m-1].|
|000022c0| 0a 20 20 20 20 20 20 20 | 20 20 20 64 5f 70 61 74 |.       |   d_pat|
|000022d0| 68 5b 6d 5d 3a 3d 64 5f | 70 61 74 68 5b 6d 2d 31 |h[m]:=d_|path[m-1|
|000022e0| 5d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 61 46 69 |]..     |     aFi|
|000022f0| 6c 65 5b 6d 5d 3a 3d 61 | 46 69 6c 65 5b 6d 2d 31 |le[m]:=a|File[m-1|
|00002300| 5d 0d 0a 20 20 20 20 20 | 20 20 20 65 6e 64 69 66 |]..     |   endif|
|00002310| 0d 0a 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |..      |  ..    |
|00002320| 20 20 6e 65 78 74 0d 0a | 20 20 20 20 20 20 0d 0a |  next..|      ..|
|00002330| 20 20 20 20 20 20 6d 4d | 79 66 69 6c 65 5b 31 5d |      mM|yfile[1]|
|00002340| 3a 3d 74 65 6d 70 76 61 | 72 5b 31 5d 0d 0a 20 20 |:=tempva|r[1]..  |
|00002350| 20 20 20 20 6e 4c 69 6e | 65 31 5b 31 5d 3a 3d 74 |    nLin|e1[1]:=t|
|00002360| 65 6d 70 76 61 72 5b 32 | 5d 0d 0a 20 20 20 20 20 |empvar[2|]..     |
|00002370| 20 6e 43 6f 6c 31 5b 31 | 5d 3a 3d 74 65 6d 70 76 | nCol1[1|]:=tempv|
|00002380| 61 72 5b 33 5d 0d 0a 20 | 20 20 20 20 20 72 65 6c |ar[3].. |     rel|
|00002390| 5f 72 6f 77 5b 31 5d 3a | 3d 74 65 6d 70 76 61 72 |_row[1]:|=tempvar|
|000023a0| 5b 34 5d 0d 0a 20 20 20 | 20 20 20 72 65 6c 5f 63 |[4]..   |   rel_c|
|000023b0| 6f 6c 5b 31 5d 3a 3d 74 | 65 6d 70 76 61 72 5b 35 |ol[1]:=t|empvar[5|
|000023c0| 5d 0d 0a 20 20 20 20 20 | 20 70 61 74 68 5b 31 5d |]..     | path[1]|
|000023d0| 3a 3d 74 65 6d 70 76 61 | 72 5b 36 5d 0d 0a 20 20 |:=tempva|r[6]..  |
|000023e0| 20 20 20 20 64 5f 70 61 | 74 68 5b 31 5d 3a 3d 74 |    d_pa|th[1]:=t|
|000023f0| 65 6d 70 76 61 72 5b 37 | 5d 0d 0a 20 20 20 20 20 |empvar[7|]..     |
|00002400| 20 61 46 69 6c 65 5b 31 | 5d 3a 3d 74 65 6d 70 76 | aFile[1|]:=tempv|
|00002410| 61 72 5b 38 5d 0d 0a 20 | 20 20 20 65 6e 64 69 66 |ar[8].. |   endif|
|00002420| 20 20 0d 0a 20 20 20 20 | 0d 0a 20 20 20 20 6e 44 |  ..    |..    nD|
|00002430| 69 73 70 3a 3d 6e 57 69 | 6e 3a 3d 31 0d 0a 20 20 |isp:=nWi|n:=1..  |
|00002440| 20 20 74 65 6d 70 76 61 | 72 5b 31 5d 3a 3d 27 27 |  tempva|r[1]:=''|
|00002450| 0d 0a 20 20 20 20 0d 0a | 20 20 20 20 6c 6f 6f 70 |..    ..|    loop|
|00002460| 0d 0a 20 20 20 20 0d 0a | 20 20 43 41 53 45 20 63 |..    ..|  CASE c|
|00002470| 4f 50 45 52 3d 3d 27 44 | 45 46 41 55 4c 54 53 27 |OPER=='D|EFAULTS'|
|00002480| 0d 0a 20 20 20 20 44 45 | 46 41 55 4c 54 28 29 0d |..    DE|FAULT().|
|00002490| 0a 20 20 20 20 0d 0a 20 | 20 43 41 53 45 20 63 4f |.    .. | CASE cO|
|000024a0| 50 45 52 3d 3d 27 52 5f | 42 4c 4f 43 4b 53 27 0d |PER=='R_|BLOCKS'.|
|000024b0| 0a 20 20 20 20 2f 2f 4d | 53 41 56 45 28 63 46 4e |.    //M|SAVE(cFN|
|000024c0| 41 4d 45 29 0d 0a 20 20 | 20 20 52 45 4d 42 4c 4f |AME)..  |  REMBLO|
|000024d0| 43 4b 53 28 29 0d 0a 20 | 20 20 20 2f 2f 4d 53 41 |CKS().. |   //MSA|
|000024e0| 56 45 28 63 46 4e 41 4d | 45 29 0d 0a 20 20 20 20 |VE(cFNAM|E)..    |
|000024f0| 0d 0a 20 20 43 41 53 45 | 20 63 4f 50 45 52 3d 3d |..  CASE| cOPER==|
|00002500| 27 4e 45 57 4e 41 4d 45 | 27 0d 0a 20 20 20 20 4e |'NEWNAME|'..    N|
|00002510| 45 57 4e 41 4d 45 28 29 | 0d 0a 20 20 20 20 0d 0a |EWNAME()|..    ..|
|00002520| 20 20 43 41 53 45 20 63 | 4f 50 45 52 3d 3d 27 53 |  CASE c|OPER=='S|
|00002530| 43 48 41 4e 44 52 45 50 | 27 0d 0a 20 20 20 20 53 |CHANDREP|'..    S|
|00002540| 43 48 41 4e 44 52 45 50 | 28 29 0d 0a 20 20 20 20 |CHANDREP|()..    |
|00002550| 0d 0a 20 20 43 41 53 45 | 20 63 4f 70 65 72 3d 3d |..  CASE| cOper==|
|00002560| 27 43 4f 4d 50 49 4c 45 | 27 0d 0a 0d 0a 09 72 65 |'COMPILE|'.....re|
|00002570| 6d 62 6c 6f 63 6b 73 28 | 29 0d 0a 20 20 20 20 6d |mblocks(|)..    m|
|00002580| 73 61 76 65 28 63 46 6e | 61 6d 65 29 0d 0a 0d 0a |save(cFn|ame)....|
|00002590| 09 69 66 20 21 65 6d 70 | 74 79 28 64 5f 70 61 74 |.if !emp|ty(d_pat|
|000025a0| 68 29 2e 61 6e 64 2e 21 | 65 6d 70 74 79 28 63 46 |h).and.!|empty(cF|
|000025b0| 4e 61 6d 65 29 0d 0a 0d | 0a 20 20 20 20 43 4f 4d |Name)...|.    COM|
|000025c0| 50 49 4c 45 28 64 5f 70 | 61 74 68 5b 6e 44 69 73 |PILE(d_p|ath[nDis|
|000025d0| 70 5d 2b 63 46 6e 61 6d | 65 29 0d 0a 20 20 65 6c |p]+cFnam|e)..  el|
|000025e0| 73 65 0d 0a 09 63 6f 6d | 70 69 6c 65 28 63 46 6e |se...com|pile(cFn|
|000025f0| 61 6d 65 29 0d 0a 20 20 | 65 6e 64 69 66 0d 0a 20 |ame)..  |endif.. |
|00002600| 20 43 41 53 45 20 63 4f | 50 45 52 3d 3d 27 43 5f | CASE cO|PER=='C_|
|00002610| 43 4f 50 59 27 0d 0a 20 | 20 20 20 2f 2f 4d 53 41 |COPY'.. |   //MSA|
|00002620| 56 45 28 63 46 4e 41 4d | 45 29 0d 0a 20 20 20 20 |VE(cFNAM|E)..    |
|00002630| 49 4e 53 53 54 52 28 29 | 0d 0a 20 20 20 20 2f 2f |INSSTR()|..    //|
|00002640| 4d 53 41 56 45 28 63 46 | 4e 41 4d 45 29 0d 0a 20 |MSAVE(cF|NAME).. |
|00002650| 20 20 20 0d 0a 20 20 43 | 41 53 45 20 63 4f 50 45 |   ..  C|ASE cOPE|
|00002660| 52 3d 3d 27 43 5f 49 4e | 53 27 0d 0a 20 20 20 20 |R=='C_IN|S'..    |
|00002670| 2f 2f 4d 53 41 56 45 28 | 63 46 4e 41 4d 45 29 0d |//MSAVE(|cFNAME).|
|00002680| 0a 20 20 20 20 50 41 53 | 54 45 28 29 0d 0a 20 20 |.    PAS|TE()..  |
|00002690| 20 20 2f 2f 4d 53 41 56 | 45 28 63 46 4e 41 4d 45 |  //MSAV|E(cFNAME|
|000026a0| 29 0d 0a 20 20 20 20 0d | 0a 20 20 20 20 0d 0a 20 |)..    .|.    .. |
|000026b0| 20 43 41 53 45 20 63 4f | 50 45 52 3d 3d 27 46 4f | CASE cO|PER=='FO|
|000026c0| 52 4d 41 54 27 0d 0a 20 | 20 20 20 6e 5f 74 61 62 |RMAT'.. |   n_tab|
|000026d0| 3a 3d 30 0d 0a 20 20 20 | 20 46 4f 52 4d 41 54 31 |:=0..   | FORMAT1|
|000026e0| 28 29 0d 0a 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |()..    |  ..    |
|000026f0| 43 41 53 45 20 63 4f 50 | 45 52 3d 3d 27 50 52 49 |CASE cOP|ER=='PRI|
|00002700| 4e 54 27 0d 0a 20 20 20 | 20 20 20 50 52 49 4e 54 |NT'..   |   PRINT|
|00002710| 28 29 0d 0a 20 20 20 20 | 63 61 73 65 20 63 4f 70 |()..    |case cOp|
|00002720| 65 72 3d 3d 27 53 57 41 | 50 20 53 49 5a 45 27 0d |er=='SWA|P SIZE'.|
|00002730| 0a 20 20 20 20 20 20 73 | 77 61 70 5f 73 69 7a 65 |.      s|wap_size|
|00002740| 28 29 0d 0a 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |()..    |  ..    |
|00002750| 45 4e 44 43 41 53 45 0d | 0a 20 20 0d 0a 45 4e 44 |ENDCASE.|.  ..END|
|00002760| 44 4f 0d 0a 0d 0a 73 65 | 74 6d 6f 64 65 28 32 35 |DO....se|tmode(25|
|00002770| 2c 38 30 29 0d 0a 69 66 | 20 21 65 6d 70 74 79 28 |,80)..if| !empty(|
|00002780| 63 46 6e 61 6d 65 29 0d | 0a 20 20 5a 45 55 53 44 |cFname).|.  ZEUSD|
|00002790| 45 46 2d 3e 46 49 4c 45 | 4e 41 4d 45 3a 3d 64 5f |EF->FILE|NAME:=d_|
|000027a0| 70 61 74 68 5b 6e 44 69 | 73 70 5d 2b 63 46 6e 61 |path[nDi|sp]+cFna|
|000027b0| 6d 65 0d 0a 20 20 7a 65 | 75 73 64 65 66 2d 3e 72 |me..  ze|usdef->r|
|000027c0| 6f 77 3a 3d 6e 6c 69 6e | 65 31 5b 6e 44 69 73 70 |ow:=nlin|e1[nDisp|
|000027d0| 5d 0d 0a 20 20 7a 65 75 | 73 64 65 66 2d 3e 63 6f |]..  zeu|sdef->co|
|000027e0| 6c 3a 3d 6e 43 6f 6c 31 | 5b 6e 44 69 73 70 5d 0d |l:=nCol1|[nDisp].|
|000027f0| 0a 20 20 7a 65 75 73 64 | 65 66 2d 3e 72 65 6c 72 |.  zeusd|ef->relr|
|00002800| 6f 77 3a 3d 72 65 6c 5f | 72 6f 77 5b 6e 44 69 73 |ow:=rel_|row[nDis|
|00002810| 70 5d 0d 0a 20 20 7a 65 | 75 73 64 65 66 2d 3e 72 |p]..  ze|usdef->r|
|00002820| 65 6c 63 6f 6c 3a 3d 72 | 65 6c 5f 63 6f 6c 5b 6e |elcol:=r|el_col[n|
|00002830| 44 69 73 70 5d 0d 0a 65 | 6c 73 65 0d 0a 0d 0a 20 |Disp]..e|lse.... |
|00002840| 20 5a 45 55 53 44 45 46 | 2d 3e 46 49 4c 45 4e 41 | ZEUSDEF|->FILENA|
|00002850| 4d 45 3a 3d 27 27 0d 0a | 20 20 7a 65 75 73 64 65 |ME:=''..|  zeusde|
|00002860| 66 2d 3e 72 6f 77 3a 3d | 30 0d 0a 20 20 7a 65 75 |f->row:=|0..  zeu|
|00002870| 73 64 65 66 2d 3e 63 6f | 6c 3a 3d 30 0d 0a 20 20 |sdef->co|l:=0..  |
|00002880| 7a 65 75 73 64 65 66 2d | 3e 72 65 6c 72 6f 77 3a |zeusdef-|>relrow:|
|00002890| 3d 30 0d 0a 20 20 7a 65 | 75 73 64 65 66 2d 3e 72 |=0..  ze|usdef->r|
|000028a0| 65 6c 63 6f 6c 3a 3d 30 | 0d 0a 20 20 20 0d 0a 65 |elcol:=0|..   ..e|
|000028b0| 6e 64 69 66 0d 0a 63 6c | 6f 73 65 20 61 6c 6c 0d |ndif..cl|ose all.|
|000028c0| 0a 52 45 54 55 52 4e 20 | 4e 49 4c 0d 0a 0d 0a 46 |.RETURN |NIL....F|
|000028d0| 55 4e 43 54 49 4f 4e 20 | 53 57 49 54 43 48 45 52 |UNCTION |SWITCHER|
|000028e0| 28 29 0d 0a 2f 2f 20 47 | 4f 45 53 20 44 55 52 49 |()..// G|OES DURI|
|000028f0| 4e 47 20 46 33 20 4b 45 | 59 20 50 52 45 53 53 0d |NG F3 KE|Y PRESS.|
|00002900| 0a 0d 0a 4b 45 59 42 4f | 41 52 44 20 43 48 52 28 |...KEYBO|ARD CHR(|
|00002910| 4b 5f 43 54 52 4c 5f 57 | 29 2b 43 48 52 28 4b 5f |K_CTRL_W|)+CHR(K_|
|00002920| 52 49 47 48 54 29 2b 43 | 48 52 28 4b 5f 52 49 47 |RIGHT)+C|HR(K_RIG|
|00002930| 48 54 29 2b 43 48 52 28 | 31 33 29 2b 43 48 52 28 |HT)+CHR(|13)+CHR(|
|00002940| 31 33 29 0d 0a 0d 0a 2f | 2f 45 4e 44 44 4f 0d 0a |13)..../|/ENDDO..|
|00002950| 0d 0a 0d 0a 52 45 54 55 | 52 4e 20 4e 49 4c 0d 0a |....RETU|RN NIL..|
|00002960| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 70 61 64 |....func|tion pad|
|00002970| 6f 75 74 28 6e 5f 74 61 | 62 2c 76 61 72 5f 74 65 |out(n_ta|b,var_te|
|00002980| 6d 70 5f 6c 69 6e 65 2c | 69 2c 69 73 5f 6c 6f 6e |mp_line,|i,is_lon|
|00002990| 67 29 0d 0a 6c 6f 63 61 | 6c 20 6a 0d 0a 0d 0a 49 |g)..loca|l j....I|
|000029a0| 46 20 4e 5f 54 41 42 3e | 30 0d 0a 20 20 46 4f 52 |F N_TAB>|0..  FOR|
|000029b0| 20 4a 20 3d 20 31 20 54 | 4f 20 4e 5f 54 41 42 0d | J = 1 T|O N_TAB.|
|000029c0| 0a 20 20 20 20 76 61 72 | 5f 74 65 6d 70 5f 6c 69 |.    var|_temp_li|
|000029d0| 6e 65 3a 3d 70 61 64 5f | 6c 69 6e 65 2b 76 61 72 |ne:=pad_|line+var|
|000029e0| 5f 74 65 6d 70 5f 6c 69 | 6e 65 0d 0a 20 20 4e 45 |_temp_li|ne..  NE|
|000029f0| 58 54 20 4a 0d 0a 20 20 | 0d 0a 45 4c 53 45 49 46 |XT J..  |..ELSEIF|
|00002a00| 20 6e 5f 74 61 62 20 3c | 20 30 0d 0a 20 20 0d 0a | n_tab <| 0..  ..|
|00002a10| 20 20 54 4f 4e 45 28 35 | 30 30 2c 31 30 29 0d 0a |  TONE(5|00,10)..|
|00002a20| 20 20 45 58 50 4c 4f 44 | 45 28 35 2c 35 2c 32 30 |  EXPLOD|E(5,5,20|
|00002a30| 2c 36 30 2c 27 4f 4e 27 | 29 0d 0a 20 20 40 20 31 |,60,'ON'|)..  @ 1|
|00002a40| 30 2c 36 20 53 41 59 20 | 27 46 4f 52 4d 41 54 20 |0,6 SAY |'FORMAT |
|00002a50| 45 52 52 4f 52 21 21 21 | 27 0d 0a 20 20 40 20 31 |ERROR!!!|'..  @ 1|
|00002a60| 32 2c 36 20 53 41 59 20 | 27 43 48 45 43 4b 20 4c |2,6 SAY |'CHECK L|
|00002a70| 49 4e 45 20 27 2b 73 74 | 72 28 69 29 0d 0a 20 20 |INE '+st|r(i)..  |
|00002a80| 40 20 31 38 2c 36 20 53 | 41 59 20 27 50 72 65 73 |@ 18,6 S|AY 'Pres|
|00002a90| 73 20 61 6e 79 20 6b 65 | 79 20 74 6f 20 63 6f 6e |s any ke|y to con|
|00002aa0| 74 69 6e 65 27 0d 0a 20 | 20 49 4e 4b 45 59 28 30 |tine'.. | INKEY(0|
|00002ab0| 29 0d 0a 20 20 6e 5f 74 | 61 62 20 3d 20 30 0d 0a |)..  n_t|ab = 0..|
|00002ac0| 20 20 45 58 50 4c 4f 44 | 45 28 35 2c 35 2c 32 30 |  EXPLOD|E(5,5,20|
|00002ad0| 2c 36 30 2c 27 4f 46 46 | 27 29 0d 0a 45 4e 44 49 |,60,'OFF|')..ENDI|
|00002ae0| 46 0d 0a 0d 0a 20 20 69 | 66 28 69 73 5f 6c 6f 6e |F....  i|f(is_lon|
|00002af0| 67 3d 3d 2e 74 2e 2c 76 | 61 72 5f 74 65 6d 70 5f |g==.t.,v|ar_temp_|
|00002b00| 6c 69 6e 65 3a 3d 27 20 | 20 20 20 20 20 20 20 20 |line:=' |        |
|00002b10| 20 27 2b 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 | '+var_t|emp_line|
|00002b20| 2c 31 29 0d 0a 0d 0a 72 | 65 74 75 72 6e 20 76 61 |,1)....r|eturn va|
|00002b30| 72 5f 74 65 6d 70 5f 6c | 69 6e 65 0d 0a 0d 0a 66 |r_temp_l|ine....f|
|00002b40| 75 6e 63 20 66 6f 72 6d | 61 74 31 28 29 0d 0a 2f |unc form|at1()../|
|00002b50| 2f 72 65 70 6c 61 63 65 | 6d 65 6e 74 20 66 6f 72 |/replace|ment for|
|00002b60| 20 46 6f 72 6d 61 74 0d | 0a 2f 2f 74 68 65 20 70 | Format.|.//the p|
|00002b70| 72 6f 62 6c 65 6d 20 77 | 69 74 68 20 66 6f 72 6d |roblem w|ith form|
|00002b80| 61 74 20 69 73 20 73 70 | 65 65 64 20 2d 20 6f 72 |at is sp|eed - or|
|00002b90| 20 6c 61 63 6b 20 6f 66 | 20 69 74 20 64 75 65 20 | lack of| it due |
|00002ba0| 74 6f 20 6d 65 6d 6f 65 | 64 69 74 27 73 0d 0a 2f |to memoe|dit's../|
|00002bb0| 2f 64 72 65 61 64 66 75 | 6c 6c 20 6d 65 6d 6f 6c |/dreadfu|ll memol|
|00002bc0| 69 6e 65 20 72 6f 75 74 | 69 6e 65 2e 0d 0a 2f 2a |ine rout|ine.../*|
|00002bd0| 74 68 69 73 20 6e 65 77 | 20 72 6f 75 74 69 6e 65 |this new| routine|
|00002be0| 20 77 69 6c 6c 20 67 6f | 20 74 68 72 75 20 74 68 | will go| thru th|
|00002bf0| 65 20 76 61 72 69 61 62 | 6c 65 20 6c 6f 6f 6b 69 |e variab|le looki|
|00002c00| 6e 67 20 66 6f 72 20 63 | 68 72 28 31 30 29 28 65 |ng for c|hr(10)(e|
|00002c10| 6e 64 20 6f 66 20 6c 69 | 6e 65 29 0d 0a 69 74 20 |nd of li|ne)..it |
|00002c20| 77 69 6c 6c 20 74 68 65 | 6e 20 66 6f 72 6d 61 74 |will the|n format|
|00002c30| 20 74 68 65 20 6c 69 6e | 65 20 61 6e 64 20 72 65 | the lin|e and re|
|00002c40| 62 75 69 6c 64 20 74 6f | 20 61 20 6e 65 77 20 6c |build to| a new l|
|00002c50| 69 6e 65 2e 20 54 68 69 | 73 20 73 68 6f 75 6c 64 |ine. Thi|s should|
|00002c60| 20 62 65 20 66 75 6e 3f | 2a 2f 0d 0a 0d 0a 23 64 | be fun?|*/....#d|
|00002c70| 65 66 69 6e 65 20 45 6e | 64 4c 69 6e 65 20 31 30 |efine En|dLine 10|
|00002c80| 20 2f 2f 65 6e 64 20 6f | 66 20 6c 69 6e 65 20 63 | //end o|f line c|
|00002c90| 68 61 72 0d 0a 23 64 65 | 66 69 6e 65 20 4c 6f 6e |har..#de|fine Lon|
|00002ca0| 67 4c 69 6e 65 20 35 39 | 0d 0a 0d 0a 6c 6f 63 61 |gLine 59|....loca|
|00002cb0| 6c 20 63 54 65 6d 70 56 | 61 72 3a 3d 6d 4d 79 46 |l cTempV|ar:=mMyF|
|00002cc0| 69 6c 65 5b 6e 44 69 73 | 70 5d 20 2f 2f 74 6f 20 |ile[nDis|p] //to |
|00002cd0| 73 74 6f 72 65 20 74 68 | 65 20 76 61 72 0d 0a 6c |store th|e var..l|
|00002ce0| 6f 63 61 6c 20 63 54 65 | 6d 70 52 65 73 3a 3d 27 |ocal cTe|mpRes:='|
|00002cf0| 27 2f 2f 20 74 6f 20 68 | 6f 6c 64 20 74 68 65 20 |'// to h|old the |
|00002d00| 72 65 73 75 6c 74 0d 0a | 6c 6f 63 61 6c 20 63 54 |result..|local cT|
|00002d10| 65 6d 70 4c 69 6e 65 3a | 3d 27 27 20 2f 2f 6c 69 |empLine:|='' //li|
|00002d20| 6e 65 20 68 6f 6c 64 65 | 72 0d 0a 6c 6f 63 61 6c |ne holde|r..local|
|00002d30| 20 69 2c 6a 2c 6b 2c 6c | 20 2f 2f 76 61 72 73 20 | i,j,k,l| //vars |
|00002d40| 66 6f 72 20 63 6f 75 6e | 74 69 6e 67 20 65 74 63 |for coun|ting etc|
|00002d50| 0d 0a 6c 6f 63 61 6c 20 | 6c 6f 6e 67 6c 69 6e 65 |..local |longline|
|00002d60| 20 2f 2f 69 73 20 74 68 | 65 72 65 20 61 20 27 3b | //is th|ere a ';|
|00002d70| 27 20 3f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6c |' ?..   |       l|
|00002d80| 6f 63 61 6c 20 6e 52 65 | 63 73 3a 3d 6d 65 6d 5f |ocal nRe|cs:=mem_|
|00002d90| 63 6f 75 6e 74 28 63 54 | 65 6d 70 56 61 72 29 0d |count(cT|empVar).|
|00002da0| 0a 0d 0a 6b 3a 3d 31 0d | 0a 0d 0a 6c 3a 3d 6c 65 |...k:=1.|...l:=le|
|00002db0| 6e 28 63 54 65 6d 70 56 | 61 72 29 20 2f 2f 6c 65 |n(cTempV|ar) //le|
|00002dc0| 6e 67 74 68 20 6f 66 20 | 74 68 65 20 76 61 72 0d |ngth of |the var.|
|00002dd0| 0a 62 61 72 73 63 72 6f | 6c 6c 28 27 64 72 61 77 |.barscro|ll('draw|
|00002de0| 27 29 0d 0a 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |')..for |i = 1 to|
|00002df0| 20 6c 20 20 2f 2f 64 6f | 20 66 6f 72 20 74 68 65 | l  //do| for the|
|00002e00| 20 77 68 6f 6c 65 20 76 | 61 72 0d 0a 20 20 0d 0a | whole v|ar..  ..|
|00002e10| 20 20 6a 3a 3d 73 75 62 | 73 74 72 28 63 54 65 6d |  j:=sub|str(cTem|
|00002e20| 70 56 61 72 2c 69 2c 31 | 29 0d 0a 20 20 0d 0a 20 |pVar,i,1|)..  .. |
|00002e30| 20 63 54 65 6d 70 4c 69 | 6e 65 2b 3d 6a 0d 0a 20 | cTempLi|ne+=j.. |
|00002e40| 20 0d 0a 20 20 0d 0a 20 | 20 69 66 20 61 73 63 28 | ..  .. | if asc(|
|00002e50| 6a 29 3d 3d 45 6e 64 4c | 69 6e 65 20 2f 2f 65 6e |j)==EndL|ine //en|
|00002e60| 64 20 6f 66 20 6c 69 6e | 65 0d 0a 20 20 20 20 62 |d of lin|e..    b|
|00002e70| 61 72 73 63 72 6f 6c 6c | 28 27 75 70 64 61 74 65 |arscroll|('update|
|00002e80| 27 2c 6b 2c 6e 52 65 63 | 73 29 0d 0a 20 20 20 20 |',k,nRec|s)..    |
|00002e90| 6b 2b 3d 31 0d 0a 20 20 | 20 20 20 20 69 66 28 61 |k+=1..  |    if(a|
|00002ea0| 74 28 63 68 72 28 35 39 | 29 2c 63 54 65 6d 70 6c |t(chr(59|),cTempl|
|00002eb0| 69 6e 65 29 3c 3e 30 2c | 6c 6f 6e 67 6c 69 6e 65 |ine)<>0,|longline|
|00002ec0| 3a 3d 2e 74 2e 2c 6c 6f | 6e 67 6c 69 6e 65 3a 3d |:=.t.,lo|ngline:=|
|00002ed0| 2e 66 2e 29 0d 0a 20 20 | 20 20 63 54 65 6d 70 52 |.f.)..  |  cTempR|
|00002ee0| 65 73 3a 3d 46 6f 72 6d | 61 74 32 28 63 54 65 6d |es:=Form|at2(cTem|
|00002ef0| 70 52 65 73 2c 63 54 65 | 6d 70 4c 69 6e 65 2c 6b |pRes,cTe|mpLine,k|
|00002f00| 2c 6c 6f 6e 67 6c 69 6e | 65 29 2f 2f 74 6f 20 64 |,longlin|e)//to d|
|00002f10| 6f 20 74 68 65 20 66 6f | 72 6d 61 74 0d 0a 20 20 |o the fo|rmat..  |
|00002f20| 20 20 63 54 65 6d 70 4c | 69 6e 65 3a 3d 27 27 2f |  cTempL|ine:=''/|
|00002f30| 2f 72 65 73 65 74 20 74 | 68 65 20 6c 69 6e 65 0d |/reset t|he line.|
|00002f40| 0a 20 20 20 20 0d 0a 20 | 20 65 6e 64 69 66 0d 0a |.    .. | endif..|
|00002f50| 20 20 0d 0a 6e 65 78 74 | 0d 0a 2f 2f 64 6f 6e 27 |  ..next|..//don'|
|00002f60| 74 20 66 6f 72 67 65 74 | 20 74 68 65 20 6c 61 73 |t forget| the las|
|00002f70| 74 20 6c 69 6e 65 0d 0a | 0d 0a 20 20 69 66 28 61 |t line..|..  if(a|
|00002f80| 74 28 63 68 72 28 35 39 | 29 2c 63 54 65 6d 70 6c |t(chr(59|),cTempl|
|00002f90| 69 6e 65 29 3c 3e 30 2c | 6c 6f 6e 67 6c 69 6e 65 |ine)<>0,|longline|
|00002fa0| 3a 3d 2e 74 2e 2c 6c 6f | 6e 67 6c 69 6e 65 3a 3d |:=.t.,lo|ngline:=|
|00002fb0| 2e 66 2e 29 0d 0a 63 54 | 65 6d 70 52 65 73 3a 3d |.f.)..cT|empRes:=|
|00002fc0| 46 6f 72 6d 61 74 32 28 | 63 54 65 6d 70 52 65 73 |Format2(|cTempRes|
|00002fd0| 2c 63 54 65 6d 70 4c 69 | 6e 65 2c 6b 2c 6c 6f 6e |,cTempLi|ne,k,lon|
|00002fe0| 67 6c 69 6e 65 29 2f 2f | 74 6f 20 64 6f 20 74 68 |gline)//|to do th|
|00002ff0| 65 20 66 6f 72 6d 61 74 | 0d 0a 0d 0a 2f 2f 65 6e |e format|....//en|
|00003000| 64 20 6f 66 20 72 6f 75 | 74 69 6e 65 2e 20 48 6f |d of rou|tine. Ho|
|00003010| 70 65 66 75 6c 6c 79 20 | 63 54 65 6d 70 56 61 72 |pefully |cTempVar|
|00003020| 20 6e 6f 77 20 69 73 20 | 6f 6b 21 21 0d 0a 0d 0a | now is |ok!!....|
|00003030| 6d 4d 79 66 69 6c 65 5b | 6e 44 69 73 70 5d 3a 3d |mMyfile[|nDisp]:=|
|00003040| 63 54 65 6d 70 52 65 73 | 0d 0a 62 61 72 73 63 72 |cTempRes|..barscr|
|00003050| 6f 6c 6c 28 27 65 78 69 | 74 27 29 0d 0a 72 65 74 |oll('exi|t')..ret|
|00003060| 75 72 6e 20 6e 69 6c 0d | 0a 0d 0a 66 75 6e 63 20 |urn nil.|...func |
|00003070| 46 6f 72 6d 61 74 32 28 | 76 61 72 5f 74 65 6d 70 |Format2(|var_temp|
|00003080| 5f 72 65 73 2c 20 76 61 | 72 5f 74 65 6d 70 5f 6c |_res, va|r_temp_l|
|00003090| 69 6e 65 2c 69 2c 6c 6f | 6e 67 6c 69 6e 65 29 0d |ine,i,lo|ngline).|
|000030a0| 0a 0d 0a 53 54 41 54 49 | 43 20 54 5f 54 45 4d 50 |...STATI|C T_TEMP|
|000030b0| 2c 4a 2f 2f 20 4e 4f 20 | 4f 46 20 4c 49 4e 45 53 |,J// NO |OF LINES|
|000030c0| 20 26 20 54 45 4d 50 4f | 52 41 52 59 20 42 55 46 | & TEMPO|RARY BUF|
|000030d0| 46 45 52 53 2c 20 49 4e | 43 52 45 4d 45 4e 54 41 |FERS, IN|CREMENTA|
|000030e0| 4c 20 56 41 52 0d 0a 4c | 6f 63 61 6c 20 54 5f 54 |L VAR..L|ocal T_T|
|000030f0| 45 58 54 0d 0a 53 54 41 | 54 49 43 20 54 41 42 3a |EXT..STA|TIC TAB:|
|00003100| 3d 27 20 20 20 20 27 0d | 0a 53 54 41 54 49 43 20 |='    '.|.STATIC |
|00003110| 69 73 5f 6c 6f 6e 67 20 | 3a 3d 2e 66 2e 0d 0a 2f |is_long |:=.f.../|
|00003120| 2f 53 54 41 54 49 43 20 | 4e 5f 54 41 42 3a 3d 30 |/STATIC |N_TAB:=0|
|00003130| 0d 0a 4c 4f 43 41 4c 20 | 54 45 4d 50 5f 54 41 42 |..LOCAL |TEMP_TAB|
|00003140| 2f 2f 54 4f 20 53 54 4f | 52 45 20 49 46 20 4e 45 |//TO STO|RE IF NE|
|00003150| 45 44 45 44 0d 0a 0d 0a | 54 5f 54 45 4d 50 3a 3d |EDED....|T_TEMP:=|
|00003160| 27 27 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 76 61 72 5f |''......|....var_|
|00003170| 74 65 6d 70 5f 6c 69 6e | 65 3a 3d 61 6c 6c 74 72 |temp_lin|e:=alltr|
|00003180| 69 6d 28 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 |im(var_t|emp_line|
|00003190| 29 0d 0a 0d 0a 69 66 20 | 6c 6f 6e 67 6c 69 6e 65 |)....if |longline|
|000031a0| 3d 3d 2e 74 2e 20 2e 61 | 6e 64 2e 20 69 73 5f 6c |==.t. .a|nd. is_l|
|000031b0| 6f 6e 67 3d 3d 2e 74 2e | 20 2f 2f 63 6f 6e 74 69 |ong==.t.| //conti|
|000031c0| 6e 75 69 6e 67 20 6c 6f | 6e 67 6c 69 6e 65 0d 0a |nuing lo|ngline..|
|000031d0| 20 20 0d 0a 20 20 76 61 | 72 5f 74 65 6d 70 5f 6c |  ..  va|r_temp_l|
|000031e0| 69 6e 65 3a 3d 70 61 64 | 6f 75 74 28 6e 5f 74 61 |ine:=pad|out(n_ta|
|000031f0| 62 2c 76 61 72 5f 74 65 | 6d 70 5f 6c 69 6e 65 2c |b,var_te|mp_line,|
|00003200| 69 2c 69 73 5f 6c 6f 6e | 67 29 0d 0a 20 20 0d 0a |i,is_lon|g)..  ..|
|00003210| 20 20 20 20 69 66 28 61 | 74 28 63 68 72 28 31 30 |    if(a|t(chr(10|
|00003220| 29 2c 76 61 72 5f 74 65 | 6d 70 5f 6c 69 6e 65 29 |),var_te|mp_line)|
|00003230| 3d 3d 30 2c 76 61 72 5f | 74 65 6d 70 5f 6c 69 6e |==0,var_|temp_lin|
|00003240| 65 2b 3d 63 68 72 28 31 | 33 29 2b 63 68 72 28 31 |e+=chr(1|3)+chr(1|
|00003250| 30 29 2c 31 29 0d 0a 20 | 20 0d 0a 20 20 54 5f 54 |0),1).. | ..  T_T|
|00003260| 45 4d 50 2b 3d 52 54 52 | 49 4d 28 76 61 72 5f 74 |EMP+=RTR|IM(var_t|
|00003270| 65 6d 70 5f 6c 69 6e 65 | 29 0d 0a 20 20 76 61 72 |emp_line|)..  var|
|00003280| 5f 74 65 6d 70 5f 72 65 | 73 2b 3d 74 5f 74 65 6d |_temp_re|s+=t_tem|
|00003290| 70 0d 0a 20 20 0d 0a 20 | 20 0d 0a 20 20 52 45 54 |p..  .. | ..  RET|
|000032a0| 55 52 4e 20 76 61 72 5f | 74 65 6d 70 5f 72 65 73 |URN var_|temp_res|
|000032b0| 20 0d 0a 20 20 0d 0a 65 | 6c 73 65 69 66 20 6c 6f | ..  ..e|lseif lo|
|000032c0| 6e 67 6c 69 6e 65 3d 3d | 2e 66 2e 20 2e 61 6e 64 |ngline==|.f. .and|
|000032d0| 2e 20 69 73 5f 6c 6f 6e | 67 3d 3d 2e 74 2e 20 2f |. is_lon|g==.t. /|
|000032e0| 2f 6c 61 73 74 20 6c 6f | 6e 67 20 6c 69 6e 65 0d |/last lo|ng line.|
|000032f0| 0a 20 20 0d 0a 20 20 76 | 61 72 5f 74 65 6d 70 5f |.  ..  v|ar_temp_|
|00003300| 6c 69 6e 65 3a 3d 70 61 | 64 6f 75 74 28 6e 5f 74 |line:=pa|dout(n_t|
|00003310| 61 62 2c 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 |ab,var_t|emp_line|
|00003320| 2c 69 2c 69 73 5f 6c 6f | 6e 67 29 0d 0a 20 20 0d |,i,is_lo|ng)..  .|
|00003330| 0a 20 20 20 20 69 66 28 | 61 74 28 63 68 72 28 31 |.    if(|at(chr(1|
|00003340| 30 29 2c 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 |0),var_t|emp_line|
|00003350| 29 3d 3d 30 2c 76 61 72 | 5f 74 65 6d 70 5f 6c 69 |)==0,var|_temp_li|
|00003360| 6e 65 2b 3d 63 68 72 28 | 31 33 29 2b 63 68 72 28 |ne+=chr(|13)+chr(|
|00003370| 31 30 29 2c 31 29 0d 0a | 20 20 0d 0a 20 20 54 5f |10),1)..|  ..  T_|
|00003380| 54 45 4d 50 2b 3d 52 54 | 52 49 4d 28 76 61 72 5f |TEMP+=RT|RIM(var_|
|00003390| 74 65 6d 70 5f 6c 69 6e | 65 29 0d 0a 20 20 76 61 |temp_lin|e)..  va|
|000033a0| 72 5f 74 65 6d 70 5f 72 | 65 73 2b 3d 74 5f 74 65 |r_temp_r|es+=t_te|
|000033b0| 6d 70 0d 0a 20 20 69 73 | 5f 6c 6f 6e 67 3a 3d 2e |mp..  is|_long:=.|
|000033c0| 66 2e 0d 0a 20 20 0d 0a | 20 20 52 45 54 55 52 4e |f...  ..|  RETURN|
|000033d0| 20 76 61 72 5f 74 65 6d | 70 5f 72 65 73 20 0d 0a | var_tem|p_res ..|
|000033e0| 20 20 0d 0a 20 20 0d 0a | 65 6c 73 65 69 66 20 6c |  ..  ..|elseif l|
|000033f0| 6f 6e 67 6c 69 6e 65 3d | 3d 2e 66 2e 0d 0a 20 20 |ongline=|=.f...  |
|00003400| 69 73 5f 6c 6f 6e 67 3a | 3d 2e 66 2e 0d 0a 20 20 |is_long:|=.f...  |
|00003410| 0d 0a 65 6c 73 65 69 66 | 20 6c 6f 6e 67 6c 69 6e |..elseif| longlin|
|00003420| 65 3d 3d 2e 74 2e 20 2e | 61 6e 64 2e 20 69 73 5f |e==.t. .|and. is_|
|00003430| 6c 6f 6e 67 3d 3d 2e 66 | 2e 0d 0a 20 20 69 73 5f |long==.f|...  is_|
|00003440| 6c 6f 6e 67 3a 3d 2e 74 | 2e 0d 0a 20 20 0d 0a 65 |long:=.t|...  ..e|
|00003450| 6e 64 69 66 0d 0a 0d 0a | 54 5f 54 45 58 54 3a 3d |ndif....|T_TEXT:=|
|00003460| 53 55 42 53 54 52 28 76 | 61 72 5f 74 65 6d 70 5f |SUBSTR(v|ar_temp_|
|00003470| 6c 69 6e 65 2c 31 2c 37 | 29 0d 0a 54 5f 54 45 58 |line,1,7|)..T_TEX|
|00003480| 54 3a 3d 55 50 50 45 52 | 28 54 5f 54 45 58 54 29 |T:=UPPER|(T_TEXT)|
|00003490| 0d 0a 0d 0a 49 46 20 53 | 55 42 53 54 52 28 54 5f |....IF S|UBSTR(T_|
|000034a0| 54 45 58 54 2c 31 2c 33 | 29 20 3d 20 27 49 46 20 |TEXT,1,3|) = 'IF |
|000034b0| 27 20 2e 4f 52 2e 3b 0d | 0a 20 20 20 20 20 20 20 |' .OR.;.|.       |
|000034c0| 20 20 20 20 20 53 55 42 | 53 54 52 28 54 5f 54 45 |     SUB|STR(T_TE|
|000034d0| 58 54 2c 31 2c 32 29 20 | 3d 20 27 44 4f 27 2e 4f |XT,1,2) |= 'DO'.O|
|000034e0| 52 2e 20 53 55 42 53 54 | 52 28 54 5f 54 45 58 54 |R. SUBST|R(T_TEXT|
|000034f0| 2c 31 2c 33 29 3d 27 46 | 4f 52 27 3b 0d 0a 20 20 |,1,3)='F|OR';..  |
|00003500| 20 20 20 20 20 20 20 20 | 20 20 2e 6f 72 2e 75 70 |        |  .or.up|
|00003510| 70 65 72 28 73 75 62 73 | 74 72 28 74 5f 74 65 78 |per(subs|tr(t_tex|
|00003520| 74 2c 31 2c 31 30 29 29 | 3d 3d 27 43 52 45 41 54 |t,1,10))|=='CREAT|
|00003530| 45 20 43 4c 41 53 53 27 | 0d 0a 20 20 76 61 72 5f |E CLASS'|..  var_|
|00003540| 74 65 6d 70 5f 6c 69 6e | 65 3a 3d 70 61 64 6f 75 |temp_lin|e:=padou|
|00003550| 74 28 6e 5f 74 61 62 2c | 76 61 72 5f 74 65 6d 70 |t(n_tab,|var_temp|
|00003560| 5f 6c 69 6e 65 2c 69 29 | 0d 0a 20 20 6e 5f 74 61 |_line,i)|..  n_ta|
|00003570| 62 2b 3d 31 0d 0a 20 20 | 0d 0a 45 4c 53 45 49 46 |b+=1..  |..ELSEIF|
|00003580| 20 53 55 42 53 54 52 28 | 54 5f 54 45 58 54 2c 31 | SUBSTR(|T_TEXT,1|
|00003590| 2c 33 29 20 3d 20 27 69 | 66 27 20 2e 4f 52 2e 3b |,3) = 'i|f' .OR.;|
|000035a0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 53 55 |..      |      SU|
|000035b0| 42 53 54 52 28 54 5f 54 | 45 58 54 2c 31 2c 32 29 |BSTR(T_T|EXT,1,2)|
|000035c0| 20 3d 20 27 64 6f 27 2e | 4f 52 2e 20 53 55 42 53 | = 'do'.|OR. SUBS|
|000035d0| 54 52 28 54 5f 54 45 58 | 54 2c 31 2c 33 29 3d 27 |TR(T_TEX|T,1,3)='|
|000035e0| 66 6f 72 27 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |for';.. |        |
|000035f0| 20 20 20 2e 6f 72 2e 75 | 70 70 65 72 28 73 75 62 |   .or.u|pper(sub|
|00003600| 73 74 72 28 74 5f 74 65 | 78 74 2c 31 2c 35 29 29 |str(t_te|xt,1,5))|
|00003610| 3d 3d 27 42 45 47 49 4e | 27 0d 0a 20 20 0d 0a 20 |=='BEGIN|'..  .. |
|00003620| 20 76 61 72 5f 74 65 6d | 70 5f 6c 69 6e 65 3a 3d | var_tem|p_line:=|
|00003630| 70 61 64 6f 75 74 28 6e | 5f 74 61 62 2c 76 61 72 |padout(n|_tab,var|
|00003640| 5f 74 65 6d 70 5f 6c 69 | 6e 65 2c 69 29 0d 0a 20 |_temp_li|ne,i).. |
|00003650| 20 6e 5f 74 61 62 2b 3d | 31 0d 0a 20 20 0d 0a 20 | n_tab+=|1..  .. |
|00003660| 20 0d 0a 45 4c 53 45 49 | 46 20 53 55 42 53 54 52 | ..ELSEI|F SUBSTR|
|00003670| 28 54 5f 54 45 58 54 2c | 31 2c 33 29 3d 27 45 4e |(T_TEXT,|1,3)='EN|
|00003680| 44 27 2e 4f 52 2e 53 55 | 42 53 54 52 28 54 5f 54 |D'.OR.SU|BSTR(T_T|
|00003690| 45 58 54 2c 31 2c 34 29 | 3d 27 4e 45 58 54 27 0d |EXT,1,4)|='NEXT'.|
|000036a0| 0a 20 20 4e 5f 54 41 42 | 20 2d 3d 20 31 0d 0a 20 |.  N_TAB| -= 1.. |
|000036b0| 20 76 61 72 5f 74 65 6d | 70 5f 6c 69 6e 65 3a 3d | var_tem|p_line:=|
|000036c0| 70 61 64 6f 75 74 28 6e | 5f 74 61 62 2c 76 61 72 |padout(n|_tab,var|
|000036d0| 5f 74 65 6d 70 5f 6c 69 | 6e 65 2c 69 29 0d 0a 20 |_temp_li|ne,i).. |
|000036e0| 20 20 20 49 46 28 4e 5f | 54 41 42 3c 30 2c 4e 5f |   IF(N_|TAB<0,N_|
|000036f0| 54 41 42 3a 3d 30 2c 4e | 5f 54 41 42 3a 3d 4e 5f |TAB:=0,N|_TAB:=N_|
|00003700| 54 41 42 29 0d 0a 20 20 | 0d 0a 45 4c 53 45 49 46 |TAB)..  |..ELSEIF|
|00003710| 20 53 55 42 53 54 52 28 | 54 5f 54 45 58 54 2c 31 | SUBSTR(|T_TEXT,1|
|00003720| 2c 33 29 3d 27 65 6e 64 | 27 2e 4f 52 2e 53 55 42 |,3)='end|'.OR.SUB|
|00003730| 53 54 52 28 54 5f 54 45 | 58 54 2c 31 2c 34 29 3d |STR(T_TE|XT,1,4)=|
|00003740| 27 6e 65 78 74 27 0d 0a | 20 20 4e 5f 54 41 42 20 |'next'..|  N_TAB |
|00003750| 2d 3d 20 31 0d 0a 20 20 | 76 61 72 5f 74 65 6d 70 |-= 1..  |var_temp|
|00003760| 5f 6c 69 6e 65 3a 3d 70 | 61 64 6f 75 74 28 6e 5f |_line:=p|adout(n_|
|00003770| 74 61 62 2c 76 61 72 5f | 74 65 6d 70 5f 6c 69 6e |tab,var_|temp_lin|
|00003780| 65 2c 69 29 0d 0a 20 20 | 20 20 49 46 28 4e 5f 54 |e,i)..  |  IF(N_T|
|00003790| 41 42 3c 30 2c 4e 5f 54 | 41 42 3a 3d 30 2c 4e 5f |AB<0,N_T|AB:=0,N_|
|000037a0| 54 41 42 3a 3d 4e 5f 54 | 41 42 29 0d 0a 20 20 0d |TAB:=N_T|AB)..  .|
|000037b0| 0a 45 4c 53 45 49 46 20 | 53 55 42 53 54 52 28 54 |.ELSEIF |SUBSTR(T|
|000037c0| 5f 54 45 58 54 2c 31 2c | 34 29 3d 27 65 6c 73 65 |_TEXT,1,|4)='else|
|000037d0| 27 2e 4f 52 2e 53 55 42 | 53 54 52 28 54 5f 54 45 |'.OR.SUB|STR(T_TE|
|000037e0| 58 54 2c 31 2c 34 29 3d | 27 45 4c 53 45 27 3b 0d |XT,1,4)=|'ELSE';.|
|000037f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 2e 6f 72 |.       |     .or|
|00003800| 2e 75 70 70 65 72 28 73 | 75 62 73 74 72 28 74 5f |.upper(s|ubstr(t_|
|00003810| 74 65 78 74 2c 31 2c 37 | 29 29 3d 3d 27 52 45 43 |text,1,7|))=='REC|
|00003820| 4f 56 45 52 27 0d 0a 20 | 20 4e 5f 54 41 42 20 2d |OVER'.. | N_TAB -|
|00003830| 3d 20 31 0d 0a 20 20 76 | 61 72 5f 74 65 6d 70 5f |= 1..  v|ar_temp_|
|00003840| 6c 69 6e 65 3a 3d 70 61 | 64 6f 75 74 28 6e 5f 74 |line:=pa|dout(n_t|
|00003850| 61 62 2c 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 |ab,var_t|emp_line|
|00003860| 2c 69 29 0d 0a 20 20 20 | 20 49 46 28 4e 5f 54 41 |,i)..   | IF(N_TA|
|00003870| 42 3c 30 2c 4e 5f 54 41 | 42 3a 3d 30 2c 4e 5f 54 |B<0,N_TA|B:=0,N_T|
|00003880| 41 42 3a 3d 4e 5f 54 41 | 42 29 0d 0a 20 20 6e 5f |AB:=N_TA|B)..  n_|
|00003890| 74 61 62 2b 3d 31 0d 0a | 20 20 0d 0a 45 4c 53 45 |tab+=1..|  ..ELSE|
|000038a0| 49 46 20 53 55 42 53 54 | 52 28 54 5f 54 45 58 54 |IF SUBST|R(T_TEXT|
|000038b0| 2c 31 2c 34 29 3d 27 43 | 41 53 45 27 2e 4f 52 2e |,1,4)='C|ASE'.OR.|
|000038c0| 53 55 42 53 54 52 28 54 | 5f 54 45 58 54 2c 31 2c |SUBSTR(T|_TEXT,1,|
|000038d0| 34 29 3d 27 63 61 73 65 | 27 3b 0d 0a 20 20 20 20 |4)='case|';..    |
|000038e0| 20 20 20 20 20 20 20 20 | 2e 6f 72 2e 20 75 70 70 |        |.or. upp|
|000038f0| 65 72 28 73 75 62 73 74 | 72 28 74 5f 74 65 78 74 |er(subst|r(t_text|
|00003900| 2c 31 2c 39 29 29 3d 3d | 27 4f 54 48 45 52 57 49 |,1,9))==|'OTHERWI|
|00003910| 53 45 27 0d 0a 20 20 0d | 0a 20 20 4e 5f 54 41 42 |SE'..  .|.  N_TAB|
|00003920| 20 2d 3d 20 31 0d 0a 20 | 20 76 61 72 5f 74 65 6d | -= 1.. | var_tem|
|00003930| 70 5f 6c 69 6e 65 3a 3d | 70 61 64 6f 75 74 28 6e |p_line:=|padout(n|
|00003940| 5f 74 61 62 2c 76 61 72 | 5f 74 65 6d 70 5f 6c 69 |_tab,var|_temp_li|
|00003950| 6e 65 2c 69 29 0d 0a 20 | 20 20 20 49 46 28 4e 5f |ne,i).. |   IF(N_|
|00003960| 54 41 42 3c 30 2c 4e 5f | 54 41 42 3a 3d 30 2c 4e |TAB<0,N_|TAB:=0,N|
|00003970| 5f 54 41 42 3a 3d 4e 5f | 54 41 42 29 0d 0a 20 20 |_TAB:=N_|TAB)..  |
|00003980| 6e 5f 74 61 62 2b 3d 31 | 0d 0a 20 20 0d 0a 45 4c |n_tab+=1|..  ..EL|
|00003990| 53 45 49 46 20 53 55 42 | 53 54 52 28 54 5f 54 45 |SEIF SUB|STR(T_TE|
|000039a0| 58 54 2c 31 2c 33 29 3d | 27 49 46 28 27 2e 4f 52 |XT,1,3)=|'IF('.OR|
|000039b0| 2e 53 55 42 53 54 52 28 | 54 5f 54 45 58 54 2c 31 |.SUBSTR(|T_TEXT,1|
|000039c0| 2c 33 29 3d 27 69 66 28 | 27 0d 0a 20 20 4e 5f 54 |,3)='if(|'..  N_T|
|000039d0| 41 42 20 2b 3d 20 31 0d | 0a 20 20 76 61 72 5f 74 |AB += 1.|.  var_t|
|000039e0| 65 6d 70 5f 6c 69 6e 65 | 3a 3d 70 61 64 6f 75 74 |emp_line|:=padout|
|000039f0| 28 6e 5f 74 61 62 2c 76 | 61 72 5f 74 65 6d 70 5f |(n_tab,v|ar_temp_|
|00003a00| 6c 69 6e 65 2c 69 29 0d | 0a 20 20 6e 5f 74 61 62 |line,i).|.  n_tab|
|00003a10| 2d 3d 31 0d 0a 20 20 20 | 20 49 46 28 4e 5f 54 41 |-=1..   | IF(N_TA|
|00003a20| 42 3c 30 2c 4e 5f 54 41 | 42 3a 3d 30 2c 4e 5f 54 |B<0,N_TA|B:=0,N_T|
|00003a30| 41 42 3a 3d 4e 5f 54 41 | 42 29 0d 0a 20 20 0d 0a |AB:=N_TA|B)..  ..|
|00003a40| 20 20 0d 0a 45 4c 53 45 | 49 46 20 53 55 42 53 54 |  ..ELSE|IF SUBST|
|00003a50| 52 28 54 5f 54 45 58 54 | 2c 31 2c 32 29 3d 27 2f |R(T_TEXT|,1,2)='/|
|00003a60| 2a 27 0d 0a 20 20 54 45 | 4d 50 5f 54 41 42 3a 3d |*'..  TE|MP_TAB:=|
|00003a70| 4e 5f 54 41 42 0d 0a 20 | 20 4e 5f 54 41 42 20 3a |N_TAB.. | N_TAB :|
|00003a80| 3d 20 30 0d 0a 20 20 76 | 61 72 5f 74 65 6d 70 5f |= 0..  v|ar_temp_|
|00003a90| 6c 69 6e 65 3a 3d 70 61 | 64 6f 75 74 28 6e 5f 74 |line:=pa|dout(n_t|
|00003aa0| 61 62 2c 76 61 72 5f 74 | 65 6d 70 5f 6c 69 6e 65 |ab,var_t|emp_line|
|00003ab0| 2c 69 29 0d 0a 20 20 6e | 5f 74 61 62 3a 3d 54 45 |,i)..  n|_tab:=TE|
|00003ac0| 4d 50 5f 54 41 42 0d 0a | 20 20 0d 0a 20 20 0d 0a |MP_TAB..|  ..  ..|
|00003ad0| 45 4c 53 45 0d 0a 20 20 | 0d 0a 20 20 76 61 72 5f |ELSE..  |..  var_|
|00003ae0| 74 65 6d 70 5f 6c 69 6e | 65 3a 3d 70 61 64 6f 75 |temp_lin|e:=padou|
|00003af0| 74 28 6e 5f 74 61 62 2c | 76 61 72 5f 74 65 6d 70 |t(n_tab,|var_temp|
|00003b00| 5f 6c 69 6e 65 2c 69 29 | 0d 0a 20 20 20 20 49 46 |_line,i)|..    IF|
|00003b10| 28 4e 5f 54 41 42 3c 30 | 2c 4e 5f 54 41 42 3a 3d |(N_TAB<0|,N_TAB:=|
|00003b20| 30 2c 4e 5f 54 41 42 3a | 3d 4e 5f 54 41 42 29 0d |0,N_TAB:|=N_TAB).|
|00003b30| 0a 45 4e 44 49 46 0d 0a | 0d 0a 20 20 69 66 28 61 |.ENDIF..|..  if(a|
|00003b40| 74 28 63 68 72 28 31 30 | 29 2c 76 61 72 5f 74 65 |t(chr(10|),var_te|
|00003b50| 6d 70 5f 6c 69 6e 65 29 | 3d 3d 30 2c 76 61 72 5f |mp_line)|==0,var_|
|00003b60| 74 65 6d 70 5f 6c 69 6e | 65 2b 3d 63 68 72 28 31 |temp_lin|e+=chr(1|
|00003b70| 33 29 2b 63 68 72 28 31 | 30 29 2c 31 29 0d 0a 0d |3)+chr(1|0),1)...|
|00003b80| 0a 54 5f 54 45 4d 50 2b | 3d 52 54 52 49 4d 28 76 |.T_TEMP+|=RTRIM(v|
|00003b90| 61 72 5f 74 65 6d 70 5f | 6c 69 6e 65 29 0d 0a 76 |ar_temp_|line)..v|
|00003ba0| 61 72 5f 74 65 6d 70 5f | 72 65 73 2b 3d 74 5f 74 |ar_temp_|res+=t_t|
|00003bb0| 65 6d 70 0d 0a 0d 0a 0d | 0a 52 45 54 55 52 4e 20 |emp.....|.RETURN |
|00003bc0| 76 61 72 5f 74 65 6d 70 | 5f 72 65 73 20 0d 0a 0d |var_temp|_res ...|
|00003bd0| 0a 0d 0a 0d 0a 0d 0a 0d | 0a 0d 0a 46 55 4e 43 54 |........|...FUNCT|
|00003be0| 49 4f 4e 20 4d 45 4d 4f | 43 4f 4e 54 52 4f 4c 28 |ION MEMO|CONTROL(|
|00003bf0| 6e 4d 6f 64 65 2c 20 6e | 4c 69 6e 65 2c 20 6e 43 |nMode, n|Line, nC|
|00003c00| 6f 6c 29 0d 0a 0d 0a 2f | 2f 50 41 52 41 4d 45 54 |ol)..../|/PARAMET|
|00003c10| 45 52 53 20 6e 4d 4f 44 | 45 2c 20 6e 4c 49 4e 45 |ERS nMOD|E, nLINE|
|00003c20| 2c 20 6e 43 4f 4c 0d 0a | 0d 0a 4c 4f 43 41 4c 20 |, nCOL..|..LOCAL |
|00003c30| 6e 52 45 54 56 41 4c 20 | 3a 3d 4d 45 5f 44 45 46 |nRETVAL |:=ME_DEF|
|00003c40| 41 55 4c 54 0d 0a 4c 4f | 43 41 4c 20 4e 5f 43 4f |AULT..LO|CAL N_CO|
|00003c50| 55 4e 54 20 2f 2f 20 43 | 4f 55 4e 54 53 20 42 4c |UNT // C|OUNTS BL|
|00003c60| 4f 43 4b 53 0d 0a 4c 4f | 43 41 4c 20 49 2c 4a 2c |OCKS..LO|CAL I,J,|
|00003c70| 7a 7a 0d 0a 6c 6f 63 61 | 6c 20 63 68 5f 6b 65 79 |zz..loca|l ch_key|
|00003c80| 2c 20 72 6f 2c 20 63 6f | 2c 6f 6c 64 63 6f 6c 0d |, ro, co|,oldcol.|
|00003c90| 0a 6c 6f 63 61 6c 20 6c | 61 73 74 5f 74 69 6d 65 |.local l|ast_time|
|00003ca0| 0d 0a 6c 6f 63 61 6c 20 | 6d 5f 6c 5f 70 72 65 73 |..local |m_l_pres|
|00003cb0| 73 2c 20 6d 5f 72 5f 70 | 72 65 73 73 2c 20 6d 5f |s, m_r_p|ress, m_|
|00003cc0| 63 6f 6c 2c 20 6d 5f 72 | 6f 77 0d 0a 6c 6f 63 61 |col, m_r|ow..loca|
|00003cd0| 6c 20 73 63 2c 20 61 75 | 74 6f 5f 66 75 6e 63 2c |l sc, au|to_func,|
|00003ce0| 20 6d 79 5f 73 63 0d 0a | 6c 6f 63 61 6c 20 73 63 | my_sc..|local sc|
|00003cf0| 72 5f 72 65 73 31 2c 20 | 73 63 72 5f 72 65 73 32 |r_res1, |scr_res2|
|00003d00| 0d 0a 6c 6f 63 61 6c 20 | 6c 62 3a 3d 30 2c 6d 63 |..local |lb:=0,mc|
|00003d10| 6f 6c 3a 3d 30 2c 6d 72 | 6f 77 3a 3d 30 2c 72 62 |ol:=0,mr|ow:=0,rb|
|00003d20| 3a 3d 30 2c 67 6f 5f 75 | 70 3a 3d 30 2c 67 6f 5f |:=0,go_u|p:=0,go_|
|00003d30| 64 6f 77 6e 3a 3d 30 2c | 67 6f 5f 6c 65 66 74 3a |down:=0,|go_left:|
|00003d40| 3d 30 2c 67 6f 5f 72 69 | 67 68 74 3a 3d 30 0d 0a |=0,go_ri|ght:=0..|
|00003d50| 6c 6f 63 61 6c 20 6f 6c | 64 5f 63 6f 6c 2c 20 6d |local ol|d_col, m|
|00003d60| 6f 75 73 65 5f 65 78 69 | 74 3a 3d 2e 74 2e 0d 0a |ouse_exi|t:=.t...|
|00003d70| 73 74 61 74 69 63 20 73 | 63 72 5f 73 74 6f 72 65 |static s|cr_store|
|00003d80| 3a 3d 31 2c 20 72 62 6f | 6b 3a 3d 2e 74 2e 0d 0a |:=1, rbo|k:=.t...|
|00003d90| 0d 0a 53 54 41 54 49 43 | 20 65 6c 61 70 73 65 64 |..STATIC| elapsed|
|00003da0| 2f 2f 74 6f 20 68 6f 6c | 64 20 74 68 65 20 73 65 |//to hol|d the se|
|00003db0| 63 6f 6e 64 73 20 75 73 | 65 64 0d 0a 2f 2f 53 54 |conds us|ed..//ST|
|00003dc0| 41 54 49 43 20 54 5f 54 | 45 58 54 3a 3d 27 27 20 |ATIC T_T|EXT:='' |
|00003dd0| 2f 2f 20 54 4f 20 48 4f | 4c 44 20 43 55 52 52 45 |// TO HO|LD CURRE|
|00003de0| 4e 54 20 4c 49 4e 45 20 | 4f 46 20 54 45 58 54 0d |NT LINE |OF TEXT.|
|00003df0| 0a 2f 2f 53 54 41 54 49 | 43 20 54 5f 54 41 42 3a |.//STATI|C T_TAB:|
|00003e00| 3d 32 0d 0a 2f 2f 53 54 | 41 54 49 43 20 54 5f 4c |=2..//ST|ATIC T_L|
|00003e10| 4b 0d 0a 72 6f 3a 3d 72 | 6f 77 28 29 0d 0a 63 6f |K..ro:=r|ow()..co|
|00003e20| 3a 3d 63 6f 6c 28 29 0d | 0a 6d 5f 6c 5f 70 72 65 |:=col().|.m_l_pre|
|00003e30| 73 73 3a 3d 6d 5f 72 5f | 70 72 65 73 73 3a 3d 2e |ss:=m_r_|press:=.|
|00003e40| 46 2e 0d 0a 0d 0a 4d 5f | 43 4f 4c 3a 3d 6e 43 4f |F.....M_|COL:=nCO|
|00003e50| 4c 0d 0a 4d 5f 52 4f 57 | 3a 3d 6e 4c 49 4e 45 0d |L..M_ROW|:=nLINE.|
|00003e60| 0a 52 45 4c 5f 52 4f 57 | 5b 6e 44 49 53 50 5d 3a |.REL_ROW|[nDISP]:|
|00003e70| 3d 52 4f 57 28 29 2d 32 | 2d 6e 54 5b 6e 44 49 53 |=ROW()-2|-nT[nDIS|
|00003e80| 50 5d 0d 0a 52 45 4c 5f | 43 4f 4c 5b 6e 44 49 53 |P]..REL_|COL[nDIS|
|00003e90| 50 5d 3a 3d 43 4f 4c 28 | 29 2d 31 2d 6e 52 5b 4e |P]:=COL(|)-1-nR[N|
|00003ea0| 44 49 53 50 5d 0d 0a 0d | 0a 0d 0a 63 4f 50 45 52 |DISP]...|...cOPER|
|00003eb0| 3a 3d 53 50 41 43 45 28 | 30 29 0d 0a 0d 0a 69 66 |:=SPACE(|0)....if|
|00003ec0| 20 69 73 6d 6f 75 73 65 | 20 2e 61 6e 64 2e 20 21 | ismouse| .and. !|
|00003ed0| 6d 6f 75 73 65 5f 6f 6e | 0d 0a 20 20 6d 6f 75 73 |mouse_on|..  mous|
|00003ee0| 65 6f 6e 28 29 0d 0a 20 | 20 6d 6f 75 73 65 5f 6f |eon().. | mouse_o|
|00003ef0| 6e 3a 3d 2e 74 2e 0d 0a | 65 6e 64 69 66 0d 0a 0d |n:=.t...|endif...|
|00003f00| 0a 0d 0a 0d 0a 69 66 20 | 6e 57 69 6e 20 3d 3d 20 |.....if |nWin == |
|00003f10| 31 20 2f 2f 20 64 6f 20 | 61 20 73 63 72 6f 6c 6c |1 // do |a scroll|
|00003f20| 20 62 61 72 0d 0a 20 20 | 0d 0a 20 20 73 63 72 5f | bar..  |..  scr_|
|00003f30| 72 65 73 31 3a 3d 6e 4c | 69 6e 65 2f 6d 5f 4c 69 |res1:=nL|ine/m_Li|
|00003f40| 6e 65 73 2a 31 30 30 20 | 2f 2f 63 75 72 72 65 6e |nes*100 |//curren|
|00003f50| 74 20 6c 69 6e 65 20 61 | 20 73 20 61 20 25 61 67 |t line a| s a %ag|
|00003f60| 65 20 6f 66 20 6d 61 78 | 0d 0a 20 20 73 63 72 5f |e of max|..  scr_|
|00003f70| 72 65 73 32 3a 3d 69 6e | 74 28 73 62 5f 6c 65 6e |res2:=in|t(sb_len|
|00003f80| 2a 73 63 72 5f 72 65 73 | 31 2f 31 30 30 29 0d 0a |*scr_res|1/100)..|
|00003f90| 20 20 0d 0a 20 20 20 20 | 69 66 28 73 63 72 5f 72 |  ..    |if(scr_r|
|00003fa0| 65 73 32 3e 73 62 5f 6c | 65 6e 2c 73 63 72 5f 72 |es2>sb_l|en,scr_r|
|00003fb0| 65 73 32 3a 3d 73 62 5f | 6c 65 6e 2c 31 29 0d 0a |es2:=sb_|len,1)..|
|00003fc0| 20 20 0d 0a 20 20 40 20 | 73 63 72 5f 73 74 6f 72 |  ..  @ |scr_stor|
|00003fd0| 65 2b 32 2c 20 6e 52 5b | 31 5d 20 73 61 79 20 63 |e+2, nR[|1] say c|
|00003fe0| 68 72 28 31 37 38 29 0d | 0a 20 20 40 20 73 63 72 |hr(178).|.  @ scr|
|00003ff0| 5f 72 65 73 32 2b 32 2c | 20 6e 52 5b 31 5d 20 73 |_res2+2,| nR[1] s|
|00004000| 61 79 20 63 68 72 28 31 | 37 36 29 0d 0a 20 20 73 |ay chr(1|76)..  s|
|00004010| 63 72 5f 73 74 6f 72 65 | 3a 3d 73 63 72 5f 72 65 |cr_store|:=scr_re|
|00004020| 73 32 0d 0a 20 20 0d 0a | 20 20 64 65 76 70 6f 73 |s2..  ..|  devpos|
|00004030| 28 72 6f 2c 63 6f 29 0d | 0a 20 20 0d 0a 65 6e 64 |(ro,co).|.  ..end|
|00004040| 69 66 0d 0a 0d 0a 0d 0a | 44 4f 20 43 41 53 45 0d |if......|DO CASE.|
|00004050| 0a 20 20 0d 0a 43 41 53 | 45 20 6e 4d 4f 44 45 20 |.  ..CAS|E nMODE |
|00004060| 3d 3d 20 4d 45 5f 49 44 | 4c 45 0d 0a 20 20 0d 0a |== ME_ID|LE..  ..|
|00004070| 20 20 64 6f 20 77 68 69 | 6c 65 20 2e 74 2e 0d 0a |  do whi|le .t...|
|00004080| 20 20 20 20 40 20 6d 61 | 78 72 6f 77 28 29 2c 30 |    @ ma|xrow(),0|
|00004090| 20 53 41 59 20 27 4c 49 | 4e 45 3a 20 27 2b 20 41 | SAY 'LI|NE: '+ A|
|000040a0| 4c 4c 54 52 49 4d 28 53 | 54 52 28 6e 4c 49 4e 45 |LLTRIM(S|TR(nLINE|
|000040b0| 29 29 2b 27 20 20 20 27 | 0d 0a 20 20 20 20 40 20 |))+'   '|..    @ |
|000040c0| 6d 61 78 72 6f 77 28 29 | 2c 31 35 20 53 41 59 20 |maxrow()|,15 SAY |
|000040d0| 27 20 43 4f 4c 55 4d 4e | 3a 20 27 2b 41 4c 4c 54 |' COLUMN|: '+ALLT|
|000040e0| 52 49 4d 28 53 54 52 28 | 6e 43 4f 4c 29 29 2b 27 |RIM(STR(|nCOL))+'|
|000040f0| 20 20 20 27 0d 0a 20 20 | 20 20 40 20 6d 61 78 72 |   '..  |  @ maxr|
|00004100| 6f 77 28 29 2c 32 39 20 | 53 41 59 20 44 41 54 45 |ow(),29 |SAY DATE|
|00004110| 57 4f 52 44 28 29 0d 0a | 20 20 20 20 40 20 6d 61 |WORD()..|    @ ma|
|00004120| 78 72 6f 77 28 29 2c 43 | 4f 4c 28 29 2b 31 20 53 |xrow(),C|OL()+1 S|
|00004130| 41 59 20 54 49 4d 45 28 | 29 2b 27 20 27 2b 75 70 |AY TIME(|)+' '+up|
|00004140| 70 65 72 28 54 49 4d 45 | 57 4f 52 44 28 29 29 0d |per(TIME|WORD()).|
|00004150| 0a 20 20 20 20 40 20 72 | 6f 2c 20 63 6f 20 73 61 |.    @ r|o, co sa|
|00004160| 79 20 27 27 0d 0a 20 20 | 20 20 0d 0a 20 20 20 20 |y ''..  |  ..    |
|00004170| 2f 2f 69 66 28 73 65 63 | 6f 6e 64 73 28 29 2d 73 |//if(sec|onds()-s|
|00004180| 63 73 3e 36 30 2c 6d 69 | 64 6e 69 67 68 74 28 40 |cs>60,mi|dnight(@|
|00004190| 73 63 73 29 2c 31 29 0d | 0a 20 20 20 20 0d 0a 20 |scs),1).|.    .. |
|000041a0| 20 20 20 6c 61 73 74 5f | 74 69 6d 65 3a 3d 73 65 |   last_|time:=se|
|000041b0| 63 6f 6e 64 73 28 29 0d | 0a 20 20 20 20 0d 0a 20 |conds().|.    .. |
|000041c0| 20 20 20 64 6f 20 77 68 | 69 6c 65 20 2e 74 2e 0d |   do wh|ile .t..|
|000041d0| 0a 20 20 20 20 20 20 69 | 66 20 73 65 63 6f 6e 64 |.      i|f second|
|000041e0| 73 28 29 2d 74 73 65 63 | 73 3e 31 32 30 0d 0a 20 |s()-tsec|s>120.. |
|000041f0| 20 20 20 20 20 20 20 62 | 6c 61 6e 6b 73 63 72 33 |       b|lankscr3|
|00004200| 28 2d 31 29 0d 0a 20 20 | 20 20 20 20 20 20 74 73 |(-1)..  |      ts|
|00004210| 65 63 73 3a 3d 73 65 63 | 6f 6e 64 73 28 29 0d 0a |ecs:=sec|onds()..|
|00004220| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00004230| 20 20 20 0d 0a 20 20 20 | 20 20 20 63 68 5f 6b 65 |   ..   |   ch_ke|
|00004240| 79 3a 3d 6e 65 78 74 6b | 65 79 28 29 0d 0a 20 20 |y:=nextk|ey()..  |
|00004250| 20 20 20 20 0d 0a 20 20 | 20 20 20 20 69 66 20 63 |    ..  |    if c|
|00004260| 68 5f 6b 65 79 3c 3e 30 | 0d 0a 20 20 20 20 20 20 |h_key<>0|..      |
|00004270| 20 20 4d 4f 55 53 45 4f | 46 46 28 29 0d 0a 20 20 |  MOUSEO|FF()..  |
|00004280| 20 20 20 20 20 20 6d 6f | 75 73 65 5f 6f 6e 3a 3d |      mo|use_on:=|
|00004290| 2e 66 2e 0d 0a 20 20 20 | 20 20 20 20 20 6d 61 6a |.f...   |     maj|
|000042a0| 5f 63 68 6b 28 63 68 5f | 6b 65 79 29 0d 0a 20 20 |_chk(ch_|key)..  |
|000042b0| 20 20 20 20 20 20 65 78 | 69 74 0d 0a 20 20 20 20 |      ex|it..    |
|000042c0| 20 20 65 6e 64 69 66 0d | 0a 20 20 20 20 20 20 0d |  endif.|.      .|
|000042d0| 0a 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 69 |.      .|.      i|
|000042e0| 66 20 69 73 6d 6f 75 73 | 65 3d 3d 2e 74 2e 0d 0a |f ismous|e==.t...|
|000042f0| 20 20 20 20 20 20 20 20 | 4d 4f 55 53 45 4f 4e 28 |        |MOUSEON(|
|00004300| 29 0d 0a 20 20 20 20 20 | 20 20 20 6d 6f 75 73 65 |)..     |   mouse|
|00004310| 72 65 61 64 28 40 6c 62 | 2c 40 72 62 2c 40 6d 52 |read(@lb|,@rb,@mR|
|00004320| 6f 77 2c 40 6d 43 6f 6c | 29 0d 0a 20 20 20 20 20 |ow,@mCol|)..     |
|00004330| 20 20 20 0d 0a 20 20 20 | 20 20 20 20 20 69 66 20 |   ..   |     if |
|00004340| 6c 62 3d 3d 2e 74 2e 20 | 2f 2f 6c 65 66 74 20 6d |lb==.t. |//left m|
|00004350| 6f 75 73 65 20 62 75 74 | 74 6f 6e 20 70 72 65 73 |ouse but|ton pres|
|00004360| 73 65 64 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6d |sed..   |       m|
|00004370| 52 6f 77 3a 3d 69 6e 74 | 28 6d 52 6f 77 2f 4d 5f |Row:=int|(mRow/M_|
|00004380| 43 55 52 53 5f 48 45 49 | 47 48 54 29 0d 0a 20 20 |CURS_HEI|GHT)..  |
|00004390| 20 20 20 20 20 20 20 20 | 6d 43 6f 6c 3a 3d 69 6e |        |mCol:=in|
|000043a0| 74 28 6d 43 6f 6c 2f 4d | 5f 43 55 52 53 5f 57 49 |t(mCol/M|_CURS_WI|
|000043b0| 44 54 48 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |DTH)..  |        |
|000043c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 0d 0a 20 20 |..      |    ..  |
|000043d0| 20 20 20 20 20 20 20 20 | 69 66 20 6d 52 6f 77 3e |        |if mRow>|
|000043e0| 6d 61 78 72 6f 77 28 29 | 2d 32 0d 0a 20 20 20 20 |maxrow()|-2..    |
|000043f0| 20 20 20 20 20 20 20 20 | 6b 65 79 62 6f 61 72 64 |        |keyboard|
|00004400| 28 63 68 72 28 4b 5f 50 | 47 44 4e 29 29 0d 0a 20 |(chr(K_P|GDN)).. |
|00004410| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 75 73 65 |        |   mouse|
|00004420| 6f 66 66 28 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |off().. |        |
|00004430| 20 65 6c 73 65 69 66 20 | 6d 52 6f 77 3c 32 0d 0a | elseif |mRow<2..|
|00004440| 20 20 20 20 20 20 20 20 | 20 20 20 20 6b 65 79 62 |        |    keyb|
|00004450| 6f 61 72 64 28 63 68 72 | 28 4b 5f 50 47 55 50 29 |oard(chr|(K_PGUP)|
|00004460| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |)..     |       m|
|00004470| 6f 75 73 65 6f 66 66 28 | 29 0d 0a 20 20 20 20 20 |ouseoff(|)..     |
|00004480| 20 20 20 20 20 65 6c 73 | 65 69 66 20 6d 43 6f 6c |     els|eif mCol|
|00004490| 3d 3d 30 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |==0..   |        |
|000044a0| 20 6b 65 79 62 6f 61 72 | 64 28 63 68 72 28 4b 5f | keyboar|d(chr(K_|
|000044b0| 48 4f 4d 45 29 29 0d 0a | 20 20 20 20 20 20 20 20 |HOME))..|        |
|000044c0| 20 20 20 20 6d 6f 75 73 | 65 6f 66 66 28 29 0d 0a |    mous|eoff()..|
|000044d0| 20 20 20 20 20 20 20 20 | 20 20 65 6c 73 65 69 66 |        |  elseif|
|000044e0| 20 6d 43 6f 6c 3d 3d 37 | 39 0d 0a 20 20 20 20 20 | mCol==7|9..     |
|000044f0| 20 20 20 20 20 20 20 6b | 65 79 62 6f 61 72 64 28 |       k|eyboard(|
|00004500| 63 68 72 28 4b 5f 45 4e | 44 29 29 0d 0a 20 20 20 |chr(K_EN|D))..   |
|00004510| 20 20 20 20 20 20 20 20 | 20 6d 6f 75 73 65 6f 66 |        | mouseof|
|00004520| 66 28 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |f()..   |        |
|00004530| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 0d | ..     |       .|
|00004540| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 0a 20 |.       |     .. |
|00004550| 20 20 20 20 20 20 20 20 | 20 65 6c 73 65 0d 0a 20 |        | else.. |
|00004560| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |        |   ..   |
|00004570| 20 20 20 20 20 20 20 20 | 20 67 6f 5f 64 6f 77 6e |        | go_down|
|00004580| 3a 3d 69 66 28 6d 52 6f | 77 3e 72 6f 2c 6d 52 6f |:=if(mRo|w>ro,mRo|
|00004590| 77 2d 72 6f 2c 30 29 0d | 0a 20 20 20 20 20 20 20 |w-ro,0).|.       |
|000045a0| 20 20 20 20 20 67 6f 5f | 75 70 3a 3d 69 66 28 6d |     go_|up:=if(m|
|000045b0| 52 6f 77 3c 72 6f 2c 72 | 6f 2d 6d 52 6f 77 2c 30 |Row<ro,r|o-mRow,0|
|000045c0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 67 |)..     |       g|
|000045d0| 6f 5f 6c 65 66 74 3a 3d | 69 66 28 6d 43 6f 6c 3c |o_left:=|if(mCol<|
|000045e0| 43 6f 2c 43 6f 2d 6d 43 | 6f 6c 2c 30 29 0d 0a 20 |Co,Co-mC|ol,0).. |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 20 67 6f 5f 72 69 |        |   go_ri|
|00004600| 67 68 74 3a 3d 69 66 28 | 6d 43 6f 6c 3e 43 6f 2c |ght:=if(|mCol>Co,|
|00004610| 6d 43 6f 6c 2d 43 6f 2c | 30 29 0d 0a 20 20 20 20 |mCol-Co,|0)..    |
|00004620| 20 20 20 20 20 20 20 20 | 0d 0a 20 20 20 20 20 20 |        |..      |
|00004630| 20 20 20 20 20 20 6b 65 | 79 62 6f 61 72 64 20 72 |      ke|yboard r|
|00004640| 65 70 6c 69 63 61 74 65 | 28 63 68 72 28 4b 5f 55 |eplicate|(chr(K_U|
|00004650| 50 29 2c 67 6f 5f 75 70 | 29 2b 3b 0d 0a 20 20 20 |P),go_up|)+;..   |
|00004660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004670| 20 20 20 72 65 70 6c 69 | 63 61 74 65 28 63 68 72 |   repli|cate(chr|
|00004680| 28 4b 5f 44 4f 57 4e 29 | 2c 67 6f 5f 64 6f 77 6e |(K_DOWN)|,go_down|
|00004690| 29 2b 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |)+;..   |        |
|000046a0| 20 20 20 20 20 20 20 20 | 20 20 20 72 65 70 6c 69 |        |   repli|
|000046b0| 63 61 74 65 28 63 68 72 | 28 4b 5f 4c 45 46 54 29 |cate(chr|(K_LEFT)|
|000046c0| 2c 67 6f 5f 6c 65 66 74 | 29 2b 3b 0d 0a 20 20 20 |,go_left|)+;..   |
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046e0| 20 20 20 72 65 70 6c 69 | 63 61 74 65 28 63 68 72 |   repli|cate(chr|
|000046f0| 28 4b 5f 52 49 47 48 54 | 29 2c 67 6f 5f 72 69 67 |(K_RIGHT|),go_rig|
|00004700| 68 74 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ht)..   |        |
|00004710| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 65 6e 64 | ..     |     end|
|00004720| 69 66 0d 0a 20 20 20 20 | 20 20 20 20 20 20 0d 0a |if..    |      ..|
|00004730| 20 20 20 20 20 20 20 20 | 20 20 0d 0a 20 20 20 20 |        |  ..    |
|00004740| 20 20 20 20 65 6c 73 65 | 69 66 20 72 62 3d 3d 2e |    else|if rb==.|
|00004750| 74 2e 2e 61 6e 64 2e 72 | 62 6f 6b 0d 0a 20 20 20 |t..and.r|bok..   |
|00004760| 20 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 20 |       .|.       |
|00004770| 20 20 20 6d 52 6f 77 3a | 3d 69 6e 74 28 6d 52 6f |   mRow:|=int(mRo|
|00004780| 77 2f 4d 5f 43 55 52 53 | 5f 48 45 49 47 48 54 29 |w/M_CURS|_HEIGHT)|
|00004790| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6d 43 6f 6c |..      |    mCol|
|000047a0| 3a 3d 69 6e 74 28 6d 43 | 6f 6c 2f 4d 5f 43 55 52 |:=int(mC|ol/M_CUR|
|000047b0| 53 5f 57 49 44 54 48 29 | 0d 0a 20 20 20 20 20 20 |S_WIDTH)|..      |
|000047c0| 20 20 20 20 67 6f 5f 64 | 6f 77 6e 3a 3d 69 66 28 |    go_d|own:=if(|
|000047d0| 6d 52 6f 77 3e 72 6f 2c | 6d 52 6f 77 2d 72 6f 2c |mRow>ro,|mRow-ro,|
|000047e0| 30 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 67 6f |0)..    |      go|
|000047f0| 5f 75 70 3a 3d 69 66 28 | 6d 52 6f 77 3c 72 6f 2c |_up:=if(|mRow<ro,|
|00004800| 72 6f 2d 6d 52 6f 77 2c | 30 29 0d 0a 20 20 20 20 |ro-mRow,|0)..    |
|00004810| 20 20 20 20 20 20 67 6f | 5f 6c 65 66 74 3a 3d 69 |      go|_left:=i|
|00004820| 66 28 6d 43 6f 6c 3c 43 | 6f 2c 43 6f 2d 6d 43 6f |f(mCol<C|o,Co-mCo|
|00004830| 6c 2c 30 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |l,0)..  |        |
|00004840| 67 6f 5f 72 69 67 68 74 | 3a 3d 69 66 28 6d 43 6f |go_right|:=if(mCo|
|00004850| 6c 3e 43 6f 2c 6d 43 6f | 6c 2d 43 6f 2c 30 29 0d |l>Co,mCo|l-Co,0).|
|00004860| 0a 20 20 20 20 20 20 20 | 20 20 20 72 62 6f 6b 3a |.       |   rbok:|
|00004870| 3d 2e 66 2e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |=.f...  |        |
|00004880| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 20 4e |..      |    IF N|
|00004890| 5f 45 44 49 54 20 3c 20 | 32 0d 0a 20 20 20 20 20 |_EDIT < |2..     |
|000048a0| 20 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 20 |       .|.       |
|000048b0| 20 20 20 20 20 4e 5f 43 | 4f 55 4e 54 3a 3d 4e 5f |     N_C|OUNT:=N_|
|000048c0| 45 44 49 54 2b 31 37 34 | 0d 0a 20 20 20 20 20 20 |EDIT+174|..      |
|000048d0| 20 20 20 20 20 20 4e 5f | 45 44 49 54 2b 3d 31 0d |      N_|EDIT+=1.|
|000048e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 0a 20 |.       |     .. |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |        |   ..   |
|00004900| 20 20 20 20 20 20 20 20 | 20 6b 65 79 62 6f 61 72 |        | keyboar|
|00004910| 64 20 72 65 70 6c 69 63 | 61 74 65 28 63 68 72 28 |d replic|ate(chr(|
|00004920| 4b 5f 55 50 29 2c 67 6f | 5f 75 70 29 2b 3b 0d 0a |K_UP),go|_up)+;..|
|00004930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004940| 20 20 20 20 20 20 72 65 | 70 6c 69 63 61 74 65 28 |      re|plicate(|
|00004950| 63 68 72 28 4b 5f 44 4f | 57 4e 29 2c 67 6f 5f 64 |chr(K_DO|WN),go_d|
|00004960| 6f 77 6e 29 2b 3b 0d 0a | 20 20 20 20 20 20 20 20 |own)+;..|        |
|00004970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 72 65 |        |      re|
|00004980| 70 6c 69 63 61 74 65 28 | 63 68 72 28 4b 5f 4c 45 |plicate(|chr(K_LE|
|00004990| 46 54 29 2c 67 6f 5f 6c | 65 66 74 29 2b 3b 0d 0a |FT),go_l|eft)+;..|
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049b0| 20 20 20 20 20 20 72 65 | 70 6c 69 63 61 74 65 28 |      re|plicate(|
|000049c0| 63 68 72 28 4b 5f 52 49 | 47 48 54 29 2c 67 6f 5f |chr(K_RI|GHT),go_|
|000049d0| 72 69 67 68 74 29 2b 63 | 68 72 28 4e 5f 43 4f 55 |right)+c|hr(N_COU|
|000049e0| 4e 54 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |NT)..   |        |
|000049f0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 0d | ..     |       .|
|00004a00| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 0d 0a 20 |.       |     .. |
|00004a10| 20 20 20 20 20 20 20 20 | 20 65 6c 73 65 69 66 20 |        | elseif |
|00004a20| 6e 5f 65 64 69 74 3d 3d | 32 0d 0a 20 20 20 20 20 |n_edit==|2..     |
|00004a30| 20 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 20 20 |       .|.       |
|00004a40| 20 20 20 20 20 6b 65 79 | 62 6f 61 72 64 20 72 65 |     key|board re|
|00004a50| 70 6c 69 63 61 74 65 28 | 63 68 72 28 4b 5f 55 50 |plicate(|chr(K_UP|
|00004a60| 29 2c 67 6f 5f 75 70 29 | 2b 3b 0d 0a 20 20 20 20 |),go_up)|+;..    |
|00004a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a80| 20 20 72 65 70 6c 69 63 | 61 74 65 28 63 68 72 28 |  replic|ate(chr(|
|00004a90| 4b 5f 44 4f 57 4e 29 2c | 67 6f 5f 64 6f 77 6e 29 |K_DOWN),|go_down)|
|00004aa0| 2b 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |+;..    |        |
|00004ab0| 20 20 20 20 20 20 20 20 | 20 20 72 65 70 6c 69 63 |        |  replic|
|00004ac0| 61 74 65 28 63 68 72 28 | 4b 5f 4c 45 46 54 29 2c |ate(chr(|K_LEFT),|
|00004ad0| 67 6f 5f 6c 65 66 74 29 | 2b 3b 0d 0a 20 20 20 20 |go_left)|+;..    |
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004af0| 20 20 72 65 70 6c 69 63 | 61 74 65 28 63 68 72 28 |  replic|ate(chr(|
|00004b00| 4b 5f 52 49 47 48 54 29 | 2c 67 6f 5f 72 69 67 68 |K_RIGHT)|,go_righ|
|00004b10| 74 29 2b 63 68 72 28 31 | 37 36 29 0d 0a 20 20 20 |t)+chr(1|76)..   |
|00004b20| 20 20 20 20 20 20 20 20 | 20 0d 0a 20 20 20 20 20 |        | ..     |
|00004b30| 20 20 20 20 20 65 6e 64 | 69 66 0d 0a 20 20 20 20 |     end|if..    |
|00004b40| 20 20 20 20 20 20 0d 0a | 20 20 20 20 20 20 20 20 |      ..|        |
|00004b50| 65 6c 73 65 69 66 20 21 | 72 62 0d 0a 20 20 20 20 |elseif !|rb..    |
|00004b60| 20 20 20 20 20 20 72 62 | 6f 6b 3a 3d 2e 74 2e 0d |      rb|ok:=.t..|
|00004b70| 0a 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 |.       |   ..   |
|00004b80| 20 20 20 20 20 65 6e 64 | 69 66 0d 0a 20 20 20 20 |     end|if..    |
|00004b90| 20 20 20 20 0d 0a 20 20 | 20 20 20 20 20 20 69 66 |    ..  |      if|
|00004ba0| 20 63 68 5f 6b 65 79 3c | 3e 30 2e 6f 72 2e 73 65 | ch_key<|>0.or.se|
|00004bb0| 63 6f 6e 64 73 28 29 2d | 6c 61 73 74 5f 74 69 6d |conds()-|last_tim|
|00004bc0| 65 3e 3d 31 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |e>=1..  |        |
|00004bd0| 65 78 69 74 0d 0a 20 20 | 20 20 20 20 20 20 65 6e |exit..  |      en|
|00004be0| 64 69 66 0d 0a 20 20 20 | 20 20 20 65 6e 64 69 66 |dif..   |   endif|
|00004bf0| 0d 0a 20 20 20 20 20 20 | 0d 0a 20 20 20 20 65 6e |..      |..    en|
|00004c00| 64 64 6f 0d 0a 20 20 20 | 20 0d 0a 20 20 20 20 69 |ddo..   | ..    i|
|00004c10| 66 20 63 68 5f 6b 65 79 | 3d 3d 30 0d 0a 20 20 20 |f ch_key|==0..   |
|00004c20| 20 20 20 0d 0a 20 20 20 | 20 20 20 6c 6f 6f 70 0d |   ..   |   loop.|
|00004c30| 0a 20 20 20 20 65 6c 73 | 65 0d 0a 20 20 20 20 20 |.    els|e..     |
|00004c40| 20 74 73 65 63 73 3a 3d | 73 65 63 6f 6e 64 73 28 | tsecs:=|seconds(|
|00004c50| 29 0d 0a 20 20 20 20 20 | 20 65 78 69 74 0d 0a 20 |)..     | exit.. |
|00004c60| 20 20 20 65 6e 64 69 66 | 0d 0a 20 20 65 6e 64 64 |   endif|..  endd|
|00004c70| 6f 0d 0a 20 20 0d 0a 20 | 20 6e 43 4f 4c 31 5b 6e |o..  .. | nCOL1[n|
|00004c80| 44 49 53 50 5d 3a 3d 6e | 43 4f 4c 0d 0a 20 20 6e |DISP]:=n|COL..  n|
|00004c90| 4c 49 4e 45 31 5b 6e 44 | 49 53 50 5d 3a 3d 6e 4c |LINE1[nD|ISP]:=nL|
|00004ca0| 49 4e 45 0d 0a 20 20 0d | 0a 20 20 73 63 73 3a 3d |INE..  .|.  scs:=|
|00004cb0| 73 65 63 6f 6e 64 73 28 | 29 0d 0a 20 20 0d 0a 43 |seconds(|)..  ..C|
|00004cc0| 41 53 45 20 4c 41 53 54 | 4b 45 59 28 29 3d 3d 4b |ASE LAST|KEY()==K|
|00004cd0| 5f 46 39 20 20 2f 2f 20 | 51 55 49 54 20 50 52 4f |_F9  // |QUIT PRO|
|00004ce0| 47 52 41 4d 0d 0a 20 20 | 0d 0a 20 20 6e 52 45 54 |GRAM..  |..  nRET|
|00004cf0| 56 41 4c 3a 3d 4b 5f 43 | 54 52 4c 5f 45 4e 44 20 |VAL:=K_C|TRL_END |
|00004d00| 2f 2f 54 45 52 4d 49 4e | 41 54 45 0d 0a 20 20 63 |//TERMIN|ATE..  c|
|00004d10| 4f 50 45 52 3a 3d 27 45 | 4e 44 27 0d 0a 20 20 0d |OPER:='E|ND'..  .|
|00004d20| 0a 43 41 53 45 20 4c 41 | 53 54 4b 45 59 28 29 3d |.CASE LA|STKEY()=|
|00004d30| 3d 4b 5f 46 31 30 20 2f | 2f 53 45 41 52 43 48 0d |=K_F10 /|/SEARCH.|
|00004d40| 0a 20 20 6e 52 45 54 56 | 41 4c 3a 3d 4b 5f 43 54 |.  nRETV|AL:=K_CT|
|00004d50| 52 4c 5f 45 4e 44 0d 0a | 20 20 63 4f 50 45 52 3a |RL_END..|  cOPER:|
|00004d60| 3d 27 53 45 41 52 43 48 | 27 0d 0a 20 20 0d 0a 43 |='SEARCH|'..  ..C|
|00004d70| 41 53 45 20 4c 41 53 54 | 4b 45 59 28 29 3d 3d 4b |ASE LAST|KEY()==K|
|00004d80| 5f 41 4c 54 5f 46 31 30 | 20 2f 2f 51 55 49 43 4b |_ALT_F10| //QUICK|
|00004d90| 20 53 45 41 52 43 48 0d | 0a 20 20 6e 52 45 54 56 | SEARCH.|.  nRETV|
|00004da0| 41 4c 3a 3d 4b 5f 43 54 | 52 4c 5f 45 4e 44 0d 0a |AL:=K_CT|RL_END..|
|00004db0| 20 20 63 4f 50 45 52 3a | 3d 27 51 53 45 41 52 43 |  cOPER:|='QSEARC|
|00004dc0| 48 27 0d 0a 20 20 0d 0a | 43 41 53 45 20 4c 41 53 |H'..  ..|CASE LAS|
|00004dd0| 54 4b 45 59 28 29 3d 3d | 4b 5f 46 36 20 20 0d 0a |TKEY()==|K_F6  ..|
|00004de0| 20 20 6e 52 65 74 56 61 | 6c 3a 3d 4b 5f 43 54 52 |  nRetVa|l:=K_CTR|
|00004df0| 4c 5f 45 4e 44 0d 0a 20 | 20 63 4f 70 65 72 3a 3d |L_END.. | cOper:=|
|00004e00| 27 43 4f 4d 50 49 4c 45 | 27 0d 0a 0d 0a 43 41 53 |'COMPILE|'....CAS|
|00004e10| 45 20 4c 41 53 54 4b 45 | 59 28 29 3d 3d 4b 5f 46 |E LASTKE|Y()==K_F|
|00004e20| 33 20 20 2f 2f 47 4f 20 | 54 4f 20 4e 45 58 54 20 |3  //GO |TO NEXT |
|00004e30| 57 49 4e 44 4f 57 0d 0a | 20 20 63 4f 50 45 52 3a |WINDOW..|  cOPER:|
|00004e40| 3d 27 53 57 49 54 43 48 | 27 0d 0a 20 20 6e 52 45 |='SWITCH|'..  nRE|
|00004e50| 54 56 41 4c 3a 3d 4b 5f | 43 54 52 4c 5f 45 4e 44 |TVAL:=K_|CTRL_END|
|00004e60| 0d 0a 20 20 0d 0a 43 41 | 53 45 20 4c 41 53 54 4b |..  ..CA|SE LASTK|
|00004e70| 45 59 28 29 3d 3d 4b 5f | 46 35 20 20 2f 2f 53 45 |EY()==K_|F5  //SE|
|00004e80| 4c 45 43 54 20 46 49 4c | 45 20 46 4f 52 20 43 55 |LECT FIL|E FOR CU|
|00004e90| 55 52 45 4e 54 20 57 49 | 4e 44 4f 57 0d 0a 20 20 |URENT WI|NDOW..  |
|00004ea0| 63 4f 50 45 52 3a 3d 27 | 53 45 4c 45 43 54 27 0d |cOPER:='|SELECT'.|
|00004eb0| 0a 20 20 6e 52 45 54 56 | 41 4c 3a 3d 4b 5f 43 54 |.  nRETV|AL:=K_CT|
|00004ec0| 52 4c 5f 45 4e 44 0d 0a | 20 20 0d 0a 43 41 53 45 |RL_END..|  ..CASE|
|00004ed0| 20 4c 41 53 54 4b 45 59 | 28 29 3d 3d 4b 5f 46 31 | LASTKEY|()==K_F1|
|00004ee0| 32 20 2f 2f 43 48 41 4e | 47 45 20 4e 55 4d 42 45 |2 //CHAN|GE NUMBE|
|00004ef0| 52 20 4f 46 20 57 49 4e | 44 4f 57 53 20 4f 4e 20 |R OF WIN|DOWS ON |
|00004f00| 53 43 52 45 45 4e 0d 0a | 20 20 63 4f 50 45 52 3a |SCREEN..|  cOPER:|
|00004f10| 3d 27 43 48 57 49 4e 27 | 0d 0a 20 20 6e 52 45 54 |='CHWIN'|..  nRET|
|00004f20| 56 41 4c 3a 3d 4b 5f 43 | 54 52 4c 5f 45 4e 44 0d |VAL:=K_C|TRL_END.|
|00004f30| 0a 20 20 0d 0a 43 41 53 | 45 20 6c 61 73 74 6b 65 |.  ..CAS|E lastke|
|00004f40| 79 28 29 3d 3d 4b 5f 41 | 4c 54 5f 46 31 32 0d 0a |y()==K_A|LT_F12..|
|00004f50| 20 20 63 4f 70 65 72 3a | 3d 27 43 48 57 49 4e 31 |  cOper:|='CHWIN1|
|00004f60| 27 0d 0a 20 20 6e 52 65 | 74 56 61 6c 3a 3d 4b 5f |'..  nRe|tVal:=K_|
|00004f70| 43 54 52 4c 5f 45 4e 44 | 0d 0a 20 20 0d 0a 20 20 |CTRL_END|..  ..  |
|00004f80| 0d 0a 43 41 53 45 20 4c | 41 53 54 4b 45 59 28 29 |..CASE L|ASTKEY()|
|00004f90| 3d 3d 4b 5f 46 34 20 20 | 2f 2f 43 48 41 4e 47 45 |==K_F4  |//CHANGE|
|00004fa0| 20 53 59 53 54 45 4d 20 | 44 45 46 41 55 4c 54 53 | SYSTEM |DEFAULTS|
|00004fb0| 0d 0a 20 20 63 4f 50 45 | 52 3a 3d 27 44 45 46 41 |..  cOPE|R:='DEFA|
|00004fc0| 55 4c 54 53 27 0d 0a 20 | 20 6e 52 45 54 56 41 4c |ULTS'.. | nRETVAL|
|00004fd0| 3a 3d 4b 5f 43 54 52 4c | 5f 45 4e 44 0d 0a 20 20 |:=K_CTRL|_END..  |
|00004fe0| 0d 0a 43 41 53 45 20 4c | 41 53 54 4b 45 59 28 29 |..CASE L|ASTKEY()|
|00004ff0| 3d 3d 4b 5f 41 4c 54 5f | 42 20 20 2f 2f 41 44 44 |==K_ALT_|B  //ADD|
|00005000| 20 41 20 54 45 58 54 20 | 42 4c 4f 43 4b 20 50 4f | A TEXT |BLOCK PO|
|00005010| 49 4e 54 45 52 0d 0a 20 | 20 0d 0a 20 20 49 46 20 |INTER.. | ..  IF |
|00005020| 4e 5f 45 44 49 54 20 3c | 20 32 0d 0a 20 20 20 20 |N_EDIT <| 2..    |
|00005030| 4e 5f 43 4f 55 4e 54 3a | 3d 4e 5f 45 44 49 54 2b |N_COUNT:|=N_EDIT+|
|00005040| 31 37 34 0d 0a 20 20 20 | 20 4e 5f 45 44 49 54 2b |174..   | N_EDIT+|
|00005050| 3d 31 0d 0a 20 20 20 20 | 4b 45 59 42 4f 41 52 44 |=1..    |KEYBOARD|
|00005060| 20 43 48 52 28 4e 5f 43 | 4f 55 4e 54 29 0d 0a 20 | CHR(N_C|OUNT).. |
|00005070| 20 45 4e 44 49 46 0d 0a | 20 20 0d 0a 43 41 53 45 | ENDIF..|  ..CASE|
|00005080| 20 4c 41 53 54 4b 45 59 | 28 29 3d 3d 4b 5f 41 4c | LASTKEY|()==K_AL|
|00005090| 54 5f 52 20 2f 2f 52 45 | 4d 4f 56 45 20 42 4c 4f |T_R //RE|MOVE BLO|
|000050a0| 43 4b 20 50 4f 49 4e 54 | 45 52 53 0d 0a 20 20 63 |CK POINT|ERS..  c|
|000050b0| 4f 50 45 52 3a 3d 27 52 | 5f 42 4c 4f 43 4b 53 27 |OPER:='R|_BLOCKS'|
|000050c0| 0d 0a 20 20 6e 52 45 54 | 56 41 4c 3a 3d 4b 5f 43 |..  nRET|VAL:=K_C|
|000050d0| 54 52 4c 5f 45 4e 44 0d | 0a 20 20 0d 0a 43 41 53 |TRL_END.|.  ..CAS|
|000050e0| 45 20 4c 41 53 54 4b 45 | 59 28 29 3d 3d 4b 5f 41 |E LASTKE|Y()==K_A|
|000050f0| 4c 54 5f 4b 20 2f 2f 20 | 43 4f 50 59 20 53 54 52 |LT_K // |COPY STR|
|00005100| 49 4e 47 20 54 4f 20 42 | 55 46 46 45 52 0d 0a 20 |ING TO B|UFFER.. |
|00005110| 20 63 4f 50 45 52 3a 3d | 27 43 5f 43 4f 50 59 27 | cOPER:=|'C_COPY'|
|00005120| 0d 0a 20 20 6e 52 45 54 | 56 41 4c 3a 3d 4b 5f 43 |..  nRET|VAL:=K_C|
|00005130| 54 52 4c 5f 45 4e 44 0d | 0a 20 20 0d 0a 43 41 53 |TRL_END.|.  ..CAS|
|00005140| 45 20 4c 41 53 54 4b 45 | 59 28 29 3d 3d 4b 5f 41 |E LASTKE|Y()==K_A|
|00005150| 4c 54 5f 4d 20 2f 2f 49 | 4e 53 45 52 54 20 4d 41 |LT_M //I|NSERT MA|
|00005160| 52 4b 45 52 20 49 4e 20 | 43 55 52 52 45 4e 54 20 |RKER IN |CURRENT |
|00005170| 54 45 58 54 20 50 4f 53 | 49 54 49 4f 4e 0d 0a 20 |TEXT POS|ITION.. |
|00005180| 20 4b 45 59 42 4f 41 52 | 44 20 43 48 52 28 31 37 | KEYBOAR|D CHR(17|
|00005190| 36 29 0d 0a 20 20 0d 0a | 43 41 53 45 20 4c 41 53 |6)..  ..|CASE LAS|
|000051a0| 54 4b 45 59 28 29 3d 3d | 4b 5f 41 4c 54 5f 49 20 |TKEY()==|K_ALT_I |
|000051b0| 2f 2f 44 4f 20 4c 41 53 | 54 20 4d 41 52 4b 45 52 |//DO LAS|T MARKER|
|000051c0| 0d 0a 20 20 63 4f 50 45 | 52 3a 3d 27 43 5f 49 4e |..  cOPE|R:='C_IN|
|000051d0| 53 27 0d 0a 20 20 6e 52 | 45 54 56 41 4c 3a 3d 4b |S'..  nR|ETVAL:=K|
|000051e0| 5f 43 54 52 4c 5f 45 4e | 44 0d 0a 20 20 0d 0a 43 |_CTRL_EN|D..  ..C|
|000051f0| 41 53 45 20 4c 41 53 54 | 4b 45 59 28 29 3d 3d 4b |ASE LAST|KEY()==K|
|00005200| 5f 41 4c 54 5f 46 2f 2f | 46 4f 52 4d 41 54 0d 0a |_ALT_F//|FORMAT..|
|00005210| 20 20 63 4f 50 45 52 3a | 3d 27 46 4f 52 4d 41 54 |  cOPER:|='FORMAT|
|00005220| 27 0d 0a 20 20 6e 52 45 | 54 56 41 4c 3a 3d 4b 5f |'..  nRE|TVAL:=K_|
|00005230| 43 54 52 4c 5f 45 4e 44 | 0d 0a 20 20 0d 0a 43 41 |CTRL_END|..  ..CA|
|00005240| 53 45 20 4c 41 53 54 4b | 45 59 28 29 3d 3d 4b 5f |SE LASTK|EY()==K_|
|00005250| 41 4c 54 5f 50 0d 0a 20 | 20 63 4f 50 45 52 3a 3d |ALT_P.. | cOPER:=|
|00005260| 27 50 52 49 4e 54 27 0d | 0a 20 20 6e 52 45 54 56 |'PRINT'.|.  nRETV|
|00005270| 41 4c 3a 3d 4b 5f 43 54 | 52 4c 5f 45 4e 44 0d 0a |AL:=K_CT|RL_END..|
|00005280| 20 20 0d 0a 43 41 53 45 | 20 4c 41 53 54 4b 45 59 |  ..CASE| LASTKEY|
|00005290| 28 29 3d 3d 4b 5f 41 4c | 54 5f 46 37 0d 0a 20 20 |()==K_AL|T_F7..  |
|000052a0| 63 4f 50 45 52 3a 3d 27 | 4e 45 57 4e 41 4d 45 27 |cOPER:='|NEWNAME'|
|000052b0| 0d 0a 20 20 6e 52 45 54 | 56 41 4c 3a 3d 4b 5f 43 |..  nRET|VAL:=K_C|
|000052c0| 54 52 4c 5f 45 4e 44 0d | 0a 20 20 0d 0a 43 41 53 |TRL_END.|.  ..CAS|
|000052d0| 45 20 4c 41 53 54 4b 45 | 59 28 29 3d 3d 4b 5f 43 |E LASTKE|Y()==K_C|
|000052e0| 54 52 4c 5f 50 0d 0a 20 | 20 50 52 49 4e 54 31 28 |TRL_P.. | PRINT1(|
|000052f0| 29 0d 0a 20 20 0d 0a 43 | 41 53 45 20 4c 41 53 54 |)..  ..C|ASE LAST|
|00005300| 4b 45 59 28 29 3d 3d 4b | 5f 46 31 31 0d 0a 20 20 |KEY()==K|_F11..  |
|00005310| 63 4f 50 45 52 3a 3d 27 | 53 43 48 41 4e 44 52 45 |cOPER:='|SCHANDRE|
|00005320| 50 27 0d 0a 20 20 6e 52 | 45 54 56 41 4c 3a 3d 4b |P'..  nR|ETVAL:=K|
|00005330| 5f 43 54 52 4c 5f 45 4e | 44 0d 0a 20 20 0d 0a 43 |_CTRL_EN|D..  ..C|
|00005340| 41 53 45 20 4c 41 53 54 | 4b 45 59 28 29 3d 3d 4b |ASE LAST|KEY()==K|
|00005350| 5f 46 38 0d 0a 20 20 63 | 4f 70 65 72 3a 3d 64 62 |_F8..  c|Oper:=db|
|00005360| 76 69 65 77 28 29 0d 0a | 20 20 4b 45 59 42 4f 41 |view()..|  KEYBOA|
|00005370| 52 44 28 63 4f 70 65 72 | 29 0d 0a 20 20 0d 0a 43 |RD(cOper|)..  ..C|
|00005380| 41 53 45 20 6c 61 73 74 | 6b 65 79 28 29 3d 3d 4b |ASE last|key()==K|
|00005390| 5f 46 32 0d 0a 20 20 63 | 4f 70 65 72 3a 3d 27 53 |_F2..  c|Oper:='S|
|000053a0| 57 41 50 20 53 49 5a 45 | 27 0d 0a 20 20 6e 52 65 |WAP SIZE|'..  nRe|
|000053b0| 74 56 61 6c 3a 3d 4b 5f | 43 54 52 4c 5f 45 4e 44 |tVal:=K_|CTRL_END|
|000053c0| 0d 0a 20 20 0d 0a 2f 2a | 43 41 53 45 20 6c 61 73 |..  ../*|CASE las|
|000053d0| 74 6b 65 79 28 29 3d 3d | 4b 5f 41 4c 54 5f 46 32 |tkey()==|K_ALT_F2|
|000053e0| 0d 0a 20 20 73 63 3a 3d | 73 61 76 65 73 63 72 65 |..  sc:=|savescre|
|000053f0| 65 6e 28 29 0d 0a 20 20 | 6f 6c 64 5f 63 6f 6c 3a |en()..  |old_col:|
|00005400| 3d 73 65 74 63 6f 6c 6f | 72 28 29 0d 0a 20 20 63 |=setcolo|r()..  c|
|00005410| 6c 73 0d 0a 20 20 69 66 | 20 6d 6f 75 73 65 5f 6f |ls..  if| mouse_o|
|00005420| 6e 0d 0a 20 20 20 20 6d | 6f 75 73 65 6f 66 66 28 |n..    m|ouseoff(|
|00005430| 29 0d 0a 20 20 20 20 6d | 6f 75 73 65 5f 6f 6e 3a |)..    m|ouse_on:|
|00005440| 3d 2e 66 2e 0d 0a 20 20 | 65 6e 64 69 66 0d 0a 20 |=.f...  |endif.. |
|00005450| 20 64 62 75 28 29 0d 0a | 20 20 63 6c 65 61 72 20 | dbu()..|  clear |
|00005460| 6d 65 6d 6f 72 79 0d 0a | 20 20 73 65 74 63 6f 6c |memory..|  setcol|
|00005470| 6f 72 28 6f 6c 64 5f 63 | 6f 6c 29 0d 0a 20 20 72 |or(old_c|ol)..  r|
|00005480| 65 73 74 73 63 72 65 65 | 6e 28 30 2c 30 2c 6d 61 |estscree|n(0,0,ma|
|00005490| 78 72 6f 77 28 29 2c 6d | 61 78 63 6f 6c 28 29 2c |xrow(),m|axcol(),|
|000054a0| 73 63 29 0d 0a 20 20 2a | 2f 0d 0a 20 20 0d 0a 63 |sc)..  *|/..  ..c|
|000054b0| 61 73 65 20 6c 61 73 74 | 6b 65 79 28 29 3d 3d 4b |ase last|key()==K|
|000054c0| 5f 43 54 52 4c 5f 46 31 | 32 0d 0a 20 20 73 63 3a |_CTRL_F1|2..  sc:|
|000054d0| 3d 73 61 76 65 73 63 72 | 65 65 6e 28 29 0d 0a 20 |=savescr|een().. |
|000054e0| 20 69 66 20 6d 6f 75 73 | 65 5f 6f 6e 0d 0a 20 20 | if mous|e_on..  |
|000054f0| 20 20 4d 4f 55 53 45 4f | 46 46 28 29 0d 0a 20 20 |  MOUSEO|FF()..  |
|00005500| 20 20 6d 6f 75 73 65 5f | 6f 6e 3a 3d 2e 66 2e 0d |  mouse_|on:=.f..|
|00005510| 0a 20 20 65 6e 64 69 66 | 0d 0a 20 20 73 77 70 72 |.  endif|..  swpr|
|00005520| 75 6e 63 6d 64 28 22 22 | 2c 30 2c 22 22 2c 22 22 |uncmd(""|,0,"",""|
|00005530| 29 0d 0a 20 20 2f 2f 20 | 20 72 75 6e 20 73 77 61 |)..  // | run swa|
|00005540| 70 20 2d 64 20 2d 66 20 | 2d 71 20 63 6f 6d 6d 61 |p -d -f |-q comma|
|00005550| 6e 64 0d 0a 20 20 53 45 | 54 20 43 4f 4c 4f 52 20 |nd..  SE|T COLOR |
|00005560| 54 4f 20 28 4d 59 5f 43 | 4f 4c 4f 52 29 20 20 20 |TO (MY_C|OLOR)   |
|00005570| 20 20 20 20 20 20 20 20 | 20 20 2f 2f 7d 0d 0a 20 |        |  //}.. |
|00005580| 20 0d 0a 20 20 72 65 73 | 74 73 63 72 65 65 6e 28 | ..  res|tscreen(|
|00005590| 30 2c 30 2c 32 34 2c 37 | 39 2c 73 63 29 0d 0a 20 |0,0,24,7|9,sc).. |
|000055a0| 20 0d 0a 63 61 73 65 20 | 6c 61 73 74 6b 65 79 28 | ..case |lastkey(|
|000055b0| 29 3d 3d 4b 5f 41 4c 54 | 5f 41 20 2f 2f 61 75 74 |)==K_ALT|_A //aut|
|000055c0| 6f 20 66 75 6e 63 74 69 | 6f 6e 0d 0a 20 20 61 75 |o functi|on..  au|
|000055d0| 74 6f 5f 66 75 6e 63 3a | 3d 61 75 74 6f 5f 64 69 |to_func:|=auto_di|
|000055e0| 73 70 28 29 0d 0a 20 20 | 6b 65 79 62 6f 61 72 64 |sp()..  |keyboard|
|000055f0| 20 28 61 75 74 6f 5f 66 | 75 6e 63 29 0d 0a 20 20 | (auto_f|unc)..  |
|00005600| 0d 0a 63 61 73 65 20 6c | 61 73 74 6b 65 79 28 29 |..case l|astkey()|
|00005610| 3d 3d 4b 5f 41 4c 54 5f | 53 20 2f 2f 73 63 72 65 |==K_ALT_|S //scre|
|00005620| 65 6e 20 64 65 73 69 67 | 6e 65 72 0d 0a 20 20 73 |en desig|ner..  s|
|00005630| 63 72 65 65 6e 73 28 29 | 20 20 0d 0a 20 20 73 65 |creens()|  ..  se|
|00005640| 74 6b 65 79 28 4b 5f 46 | 32 2c 6e 69 6c 29 0d 0a |tkey(K_F|2,nil)..|
|00005650| 20 20 0d 0a 20 20 0d 0a | 45 4e 44 43 41 53 45 0d |  ..  ..|ENDCASE.|
|00005660| 0a 0d 0a 52 45 54 55 52 | 4e 20 6e 52 45 54 56 41 |...RETUR|N nRETVA|
|00005670| 4c 0d 0a 0d 0a 46 55 4e | 43 54 49 4f 4e 20 4f 50 |L....FUN|CTION OP|
|00005680| 45 4e 46 31 28 29 0d 0a | 53 54 41 54 49 43 20 61 |ENF1()..|STATIC a|
|00005690| 44 49 52 3a 3d 7b 7d 0d | 0a 53 54 41 54 49 43 20 |DIR:={}.|.STATIC |
|000056a0| 61 44 49 52 31 3a 3d 7b | 7d 0d 0a 4c 4f 43 41 4c |aDIR1:={|}..LOCAL|
|000056b0| 20 6e 43 48 4f 49 43 45 | 0d 0a 4c 4f 43 41 4c 20 | nCHOICE|..LOCAL |
|000056c0| 69 3a 3d 30 0d 0a 2f 2f | 53 54 41 54 49 43 20 61 |i:=0..//|STATIC a|
|000056d0| 44 49 52 53 49 5a 45 3a | 3d 7b 7d 0d 0a 0d 0a 61 |DIRSIZE:|={}....a|
|000056e0| 44 49 52 3a 3d 44 49 52 | 45 43 54 4f 52 59 28 28 |DIR:=DIR|ECTORY((|
|000056f0| 64 5f 70 61 74 68 5b 6e | 44 69 73 70 5d 29 2b 28 |d_path[n|Disp])+(|
|00005700| 46 49 4c 45 53 45 4c 45 | 43 54 29 2b 28 46 5f 45 |FILESELE|CT)+(F_E|
|00005710| 58 54 29 2c 27 44 27 29 | 0d 0a 0d 0a 49 46 20 4c |XT),'D')|....IF L|
|00005720| 45 4e 28 61 44 49 52 29 | 3d 3d 4e 49 4c 0d 0a 20 |EN(aDIR)|==NIL.. |
|00005730| 20 52 45 54 55 52 4e 20 | 4e 49 4c 0d 0a 45 4e 44 | RETURN |NIL..END|
|00005740| 49 46 0d 0a 0d 0a 41 53 | 49 5a 45 28 61 44 49 52 |IF....AS|IZE(aDIR|
|00005750| 31 2c 4c 45 4e 28 61 44 | 49 52 29 29 0d 0a 0d 0a |1,LEN(aD|IR))....|
|00005760| 46 4f 52 20 69 3d 31 20 | 54 4f 20 4c 45 4e 28 61 |FOR i=1 |TO LEN(a|
|00005770| 44 49 52 29 0d 0a 20 20 | 61 44 49 52 31 5b 49 5d |DIR)..  |aDIR1[I]|
|00005780| 3a 3d 61 44 49 52 5b 49 | 2c 31 5d 0d 0a 4e 45 58 |:=aDIR[I|,1]..NEX|
|00005790| 54 20 49 0d 0a 0d 0a 2f | 2f 41 53 49 5a 45 28 61 |T I..../|/ASIZE(a|
|000057a0| 44 49 52 53 49 5a 45 2c | 4c 45 4e 28 61 44 49 52 |DIRSIZE,|LEN(aDIR|
|000057b0| 29 29 0d 0a 2f 2f 20 20 | 46 4f 52 20 49 3d 31 20 |))..//  |FOR I=1 |
|000057c0| 54 4f 20 4c 45 4e 28 61 | 44 49 52 29 0d 0a 2f 2f |TO LEN(a|DIR)..//|
|000057d0| 20 20 20 20 20 20 49 46 | 28 61 44 49 52 5b 49 2c |      IF|(aDIR[I,|
|000057e0| 32 5d 3e 36 35 35 30 30 | 2c 61 44 49 52 53 49 5a |2]>65500|,aDIRSIZ|
|000057f0| 45 5b 49 5d 3a 3d 2e 46 | 2e 2c 61 44 49 52 53 49 |E[I]:=.F|.,aDIRSI|
|00005800| 5a 45 5b 49 5d 3a 3d 2e | 54 2e 29 0d 0a 2f 2f 20 |ZE[I]:=.|T.)..// |
|00005810| 20 4e 45 58 54 20 49 0d | 0a 2f 2f 0d 0a 0d 0a 2f | NEXT I.|.//..../|
|00005820| 2f 45 58 50 4c 4f 44 45 | 28 33 2c 33 2c 31 36 2c |/EXPLODE|(3,3,16,|
|00005830| 32 30 2c 27 4f 4e 27 29 | 0d 0a 2f 2f 40 20 34 2c |20,'ON')|..//@ 4,|
|00005840| 34 20 53 41 59 20 27 53 | 45 4c 45 43 54 20 46 49 |4 SAY 'S|ELECT FI|
|00005850| 4c 45 27 0d 0a 2f 2f 40 | 20 35 2c 34 20 53 41 59 |LE'..//@| 5,4 SAY|
|00005860| 20 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 27 0d 0a | '------|-----'..|
|00005870| 2f 2f 61 73 6f 72 74 28 | 61 44 69 72 31 29 0d 0a |//asort(|aDir1)..|
|00005880| 6e 43 48 4f 49 43 45 3a | 3d 41 43 48 4f 49 43 45 |nCHOICE:|=ACHOICE|
|00005890| 28 36 2c 34 2c 31 35 2c | 31 39 2c 61 44 49 52 31 |(6,4,15,|19,aDIR1|
|000058a0| 29 0d 0a 0d 0a 0d 0a 49 | 46 20 6e 43 48 4f 49 43 |)......I|F nCHOIC|
|000058b0| 45 3d 4e 49 4c 20 2e 4f | 52 2e 20 6e 43 48 4f 49 |E=NIL .O|R. nCHOI|
|000058c0| 43 45 3d 30 0d 0a 20 20 | 2f 2f 45 58 50 4c 4f 44 |CE=0..  |//EXPLOD|
|000058d0| 45 28 33 2c 33 2c 31 36 | 2c 32 30 2c 27 4f 46 46 |E(3,3,16|,20,'OFF|
|000058e0| 27 29 0d 0a 20 20 52 45 | 54 55 52 4e 20 4e 49 4c |')..  RE|TURN NIL|
|000058f0| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 63 46 49 4c 45 |..ENDIF.|...cFILE|
|00005900| 3a 3d 61 44 49 52 31 5b | 6e 43 48 4f 49 43 45 5d |:=aDIR1[|nCHOICE]|
|00005910| 0d 0a 2f 2f 49 46 28 6e | 57 49 4e 3d 31 2c 63 46 |..//IF(n|WIN=1,cF|
|00005920| 49 4c 45 31 3a 3d 63 46 | 49 4c 45 2c 63 46 49 4c |ILE1:=cF|ILE,cFIL|
|00005930| 45 32 3a 3d 63 46 49 4c | 45 29 0d 0a 0d 0a 2f 2f |E2:=cFIL|E)....//|
|00005940| 45 58 50 4c 4f 44 45 28 | 33 2c 33 2c 31 36 2c 32 |EXPLODE(|3,3,16,2|
|00005950| 30 2c 27 4f 46 46 27 29 | 0d 0a 0d 0a 52 45 54 55 |0,'OFF')|....RETU|
|00005960| 52 4e 20 28 63 46 49 4c | 45 29 0d 0a 0d 0a 0d 0a |RN (cFIL|E)......|
|00005970| 46 55 4e 43 54 49 4f 4e | 20 48 49 43 4f 4c 28 63 |FUNCTION| HICOL(c|
|00005980| 4d 4f 44 45 29 0d 0a 53 | 54 41 54 49 43 20 63 43 |MODE)..S|TATIC cC|
|00005990| 4f 4c 0d 0a 0d 0a 0d 0a | 20 20 49 46 28 63 4d 4f |OL......|  IF(cMO|
|000059a0| 44 45 20 3d 3d 20 27 4f | 4e 27 2c 63 43 4f 4c 3a |DE == 'O|N',cCOL:|
|000059b0| 3d 53 45 54 43 4f 4c 4f | 52 28 63 4e 45 57 43 4f |=SETCOLO|R(cNEWCO|
|000059c0| 4c 29 2c 53 45 54 43 4f | 4c 4f 52 28 63 43 4f 4c |L),SETCO|LOR(cCOL|
|000059d0| 29 29 0d 0a 0d 0a 52 45 | 54 55 52 4e 20 4e 49 4c |))....RE|TURN NIL|
|000059e0| 0d 0a 0d 0a 2f 2f 20 46 | 55 4e 43 54 49 4f 4e 20 |....// F|UNCTION |
|000059f0| 54 4f 20 53 41 56 45 20 | 54 45 58 54 20 46 49 4c |TO SAVE |TEXT FIL|
|00005a00| 45 20 4f 4e 20 45 58 49 | 54 20 46 52 4f 4d 20 43 |E ON EXI|T FROM C|
|00005a10| 55 52 52 45 4e 54 20 57 | 49 4e 44 4f 57 0d 0a 0d |URRENT W|INDOW...|
|00005a20| 0a 0d 0a 46 55 4e 43 54 | 49 4f 4e 20 4d 53 41 56 |...FUNCT|ION MSAV|
|00005a30| 45 28 63 46 4e 41 4d 45 | 29 0d 0a 4c 4f 43 41 4c |E(cFNAME|)..LOCAL|
|00005a40| 20 63 43 48 4f 49 43 45 | 3a 3d 27 59 27 0d 0a 4c | cCHOICE|:='Y'..L|
|00005a50| 4f 43 41 4c 20 63 46 4e | 41 4d 45 31 0d 0a 4c 4f |OCAL cFN|AME1..LO|
|00005a60| 43 41 4c 20 63 45 58 54 | 3a 3d 27 2e 50 52 47 27 |CAL cEXT|:='.PRG'|
|00005a70| 0d 0a 4c 4f 43 41 4c 20 | 4c 5f 54 45 53 54 3a 3d |..LOCAL |L_TEST:=|
|00005a80| 2e 54 2e 0d 0a 4c 4f 43 | 41 4c 20 59 5f 52 45 54 |.T...LOC|AL Y_RET|
|00005a90| 52 59 3a 3d 27 59 27 0d | 0a 0d 0a 44 4f 20 57 48 |RY:='Y'.|...DO WH|
|00005aa0| 49 4c 45 20 2e 54 2e 0d | 0a 20 20 49 46 20 63 46 |ILE .T..|.  IF cF|
|00005ab0| 4e 41 4d 45 3c 3e 4e 49 | 4c 2e 41 4e 44 2e 63 46 |NAME<>NI|L.AND.cF|
|00005ac0| 4e 41 4d 45 3c 3e 27 55 | 4e 54 49 54 4c 45 44 27 |NAME<>'U|NTITLED'|
|00005ad0| 0d 0a 20 20 20 20 0d 0a | 20 20 20 20 4c 5f 54 45 |..    ..|    L_TE|
|00005ae0| 53 54 3a 3d 4d 45 4d 4f | 57 52 49 54 28 28 64 5f |ST:=MEMO|WRIT((d_|
|00005af0| 70 61 74 68 5b 6e 44 69 | 73 70 5d 29 2b 28 63 46 |path[nDi|sp])+(cF|
|00005b00| 4e 41 4d 45 29 2c 6d 4d | 59 46 49 4c 45 5b 6e 44 |NAME),mM|YFILE[nD|
|00005b10| 49 53 50 5d 29 0d 0a 20 | 20 20 20 0d 0a 20 20 45 |ISP]).. |   ..  E|
|00005b20| 4c 53 45 49 46 20 6d 4d | 59 46 49 4c 45 5b 6e 44 |LSEIF mM|YFILE[nD|
|00005b30| 49 53 50 5d 3d 3d 27 27 | 2e 4f 52 2e 20 6d 4d 59 |ISP]==''|.OR. mMY|
|00005b40| 46 49 4c 45 5b 6e 44 49 | 53 50 5d 3d 3d 4e 49 4c |FILE[nDI|SP]==NIL|
|00005b50| 0d 0a 20 20 20 20 45 58 | 49 54 0d 0a 20 20 20 20 |..    EX|IT..    |
|00005b60| 0d 0a 20 20 45 4c 53 45 | 0d 0a 20 20 20 20 0d 0a |..  ELSE|..    ..|
|00005b70| 20 20 20 20 45 58 50 4c | 4f 44 45 28 31 30 2c 35 |    EXPL|ODE(10,5|
|00005b80| 2c 31 35 2c 35 35 2c 27 | 4f 4e 27 29 0d 0a 20 20 |,15,55,'|ON')..  |
|00005b90| 20 20 20 20 49 46 28 63 | 46 4e 41 4d 45 3d 3d 4e |    IF(c|FNAME==N|
|00005ba0| 49 4c 2c 63 46 4e 41 4d | 45 3a 3d 27 55 4e 54 49 |IL,cFNAM|E:='UNTI|
|00005bb0| 54 4c 45 44 20 20 20 20 | 27 2c 31 29 0d 0a 20 20 |TLED    |',1)..  |
|00005bc0| 20 20 63 46 4e 41 4d 45 | 31 3a 3d 53 55 42 53 54 |  cFNAME|1:=SUBST|
|00005bd0| 52 28 63 46 4e 41 4d 45 | 2c 31 2c 4c 45 4e 28 63 |R(cFNAME|,1,LEN(c|
|00005be0| 46 4e 41 4d 45 29 2d 34 | 29 0d 0a 20 20 20 20 63 |FNAME)-4|)..    c|
|00005bf0| 46 4e 41 4d 45 31 3a 3d | 50 41 44 52 28 63 46 4e |FNAME1:=|PADR(cFN|
|00005c00| 41 4d 45 31 2c 31 30 29 | 0d 0a 20 20 20 20 40 20 |AME1,10)|..    @ |
|00005c10| 31 31 2c 36 20 53 41 59 | 20 27 53 41 56 45 20 46 |11,6 SAY| 'SAVE F|
|00005c20| 49 4c 45 20 3a 27 20 47 | 45 54 20 63 43 48 4f 49 |ILE :' G|ET cCHOI|
|00005c30| 43 45 20 50 49 43 54 55 | 52 45 20 27 59 27 0d 0a |CE PICTU|RE 'Y'..|
|00005c40| 20 20 20 20 40 20 31 32 | 2c 36 20 53 41 59 20 27 |    @ 12|,6 SAY '|
|00005c50| 45 4e 54 45 52 20 46 49 | 4c 45 4e 41 4d 45 3a 20 |ENTER FI|LENAME: |
|00005c60| 27 20 47 45 54 20 63 46 | 4e 41 4d 45 31 20 57 48 |' GET cF|NAME1 WH|
|00005c70| 45 4e 20 63 43 48 4f 49 | 43 45 3d 3d 27 59 27 20 |EN cCHOI|CE=='Y' |
|00005c80| 50 49 43 54 55 52 45 20 | 27 40 4b 27 3b 0d 0a 20 |PICTURE |'@K';.. |
|00005c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 56 41 4c |        |     VAL|
|00005ca0| 49 44 20 46 4e 41 4d 45 | 43 48 4b 28 63 46 4e 41 |ID FNAME|CHK(cFNA|
|00005cb0| 4d 45 31 29 0d 0a 20 20 | 20 20 40 20 31 33 2c 36 |ME1)..  |  @ 13,6|
|00005cc0| 20 53 41 59 20 27 45 4e | 54 45 52 20 46 49 4c 45 | SAY 'EN|TER FILE|
|00005cd0| 20 45 58 54 3a 20 27 20 | 47 45 54 20 46 5f 45 58 | EXT: ' |GET F_EX|
|00005ce0| 54 20 57 48 45 4e 20 63 | 43 48 4f 49 43 45 3d 3d |T WHEN c|CHOICE==|
|00005cf0| 27 59 27 50 49 43 54 55 | 52 45 20 27 40 4b 27 3b |'Y'PICTU|RE '@K';|
|00005d00| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005d10| 56 41 4c 49 44 20 45 58 | 54 43 48 28 46 5f 45 58 |VALID EX|TCH(F_EX|
|00005d20| 54 29 0d 0a 20 20 20 20 | 52 45 41 44 0d 0a 20 20 |T)..    |READ..  |
|00005d30| 20 20 0d 0a 20 20 20 20 | 45 58 50 4c 4f 44 45 28 |  ..    |EXPLODE(|
|00005d40| 31 30 2c 35 2c 31 35 2c | 35 35 2c 27 4f 46 46 27 |10,5,15,|55,'OFF'|
|00005d50| 29 0d 0a 20 20 20 20 63 | 46 4e 41 4d 45 31 3a 3d |)..    c|FNAME1:=|
|00005d60| 41 4c 4c 54 52 49 4d 28 | 63 46 4e 41 4d 45 31 29 |ALLTRIM(|cFNAME1)|
|00005d70| 0d 0a 20 20 20 20 63 46 | 4e 41 4d 45 31 2b 3d 46 |..    cF|NAME1+=F|
|00005d80| 5f 45 58 54 0d 0a 20 20 | 20 20 20 20 49 46 28 63 |_EXT..  |    IF(c|
|00005d90| 43 48 4f 49 43 45 3d 3d | 27 59 27 2c 4c 5f 54 45 |CHOICE==|'Y',L_TE|
|00005da0| 53 54 3a 3d 4d 45 4d 4f | 57 52 49 54 28 28 64 5f |ST:=MEMO|WRIT((d_|
|00005db0| 70 61 74 68 5b 6e 44 69 | 73 70 5d 29 2b 63 46 4e |path[nDi|sp])+cFN|
|00005dc0| 41 4d 45 31 2c 6d 4d 59 | 46 49 4c 45 5b 6e 44 49 |AME1,mMY|FILE[nDI|
|00005dd0| 53 50 5d 29 2c 63 43 48 | 4f 49 43 45 3a 3d 27 4e |SP]),cCH|OICE:='N|
|00005de0| 27 29 0d 0a 20 20 20 20 | 20 20 49 46 28 63 43 48 |')..    |  IF(cCH|
|00005df0| 4f 49 43 45 3d 3d 27 59 | 27 2c 61 46 49 4c 45 5b |OICE=='Y|',aFILE[|
|00005e00| 6e 44 49 53 50 5d 3a 3d | 63 46 4e 41 4d 45 31 2c |nDISP]:=|cFNAME1,|
|00005e10| 63 46 4e 41 4d 45 31 3a | 3d 63 46 4e 41 4d 45 31 |cFNAME1:|=cFNAME1|
|00005e20| 29 0d 0a 20 20 20 20 0d | 0a 20 20 45 4e 44 49 46 |)..    .|.  ENDIF|
|00005e30| 0d 0a 20 20 0d 0a 20 20 | 49 46 20 4c 5f 54 45 53 |..  ..  |IF L_TES|
|00005e40| 54 3d 3d 2e 54 2e 0d 0a | 20 20 20 20 45 58 49 54 |T==.T...|    EXIT|
|00005e50| 0d 0a 20 20 20 20 0d 0a | 20 20 45 4c 53 45 0d 0a |..    ..|  ELSE..|
|00005e60| 20 20 20 20 45 58 50 4c | 4f 44 45 28 35 2c 35 2c |    EXPL|ODE(5,5,|
|00005e70| 31 30 2c 32 35 2c 27 4f | 4e 27 29 0d 0a 20 20 20 |10,25,'O|N')..   |
|00005e80| 20 40 36 2c 36 20 53 41 | 59 20 27 53 41 56 45 20 | @6,6 SA|Y 'SAVE |
|00005e90| 45 52 52 4f 52 21 21 21 | 27 0d 0a 20 20 20 20 40 |ERROR!!!|'..    @|
|00005ea0| 37 2c 37 20 53 41 59 20 | 27 52 45 54 52 59 27 20 |7,7 SAY |'RETRY' |
|00005eb0| 47 45 54 20 59 5f 52 45 | 54 52 59 20 50 49 43 54 |GET Y_RE|TRY PICT|
|00005ec0| 55 52 45 20 27 59 27 0d | 0a 20 20 20 20 52 45 41 |URE 'Y'.|.    REA|
|00005ed0| 44 0d 0a 20 20 20 20 0d | 0a 20 20 20 20 49 46 20 |D..    .|.    IF |
|00005ee0| 59 5f 52 45 54 52 59 3d | 3d 27 59 27 0d 0a 20 20 |Y_RETRY=|='Y'..  |
|00005ef0| 20 20 20 20 45 58 50 4c | 4f 44 45 28 35 2c 35 2c |    EXPL|ODE(5,5,|
|00005f00| 31 30 2c 32 35 2c 27 4f | 46 46 27 29 0d 0a 20 20 |10,25,'O|FF')..  |
|00005f10| 20 20 20 20 4c 4f 4f 50 | 0d 0a 20 20 20 20 20 20 |    LOOP|..      |
|00005f20| 0d 0a 20 20 20 20 45 4c | 53 45 0d 0a 20 20 20 20 |..    EL|SE..    |
|00005f30| 20 20 45 58 50 4c 4f 44 | 45 28 35 2c 35 2c 31 30 |  EXPLOD|E(5,5,10|
|00005f40| 2c 32 35 2c 27 4f 46 46 | 27 29 0d 0a 20 20 20 20 |,25,'OFF|')..    |
|00005f50| 20 20 45 58 49 54 0d 0a | 20 20 20 20 45 4e 44 49 |  EXIT..|    ENDI|
|00005f60| 46 0d 0a 20 20 45 4e 44 | 49 46 0d 0a 20 20 0d 0a |F..  END|IF..  ..|
|00005f70| 20 20 0d 0a 20 20 0d 0a | 45 4e 44 44 4f 0d 0a 52 |  ..  ..|ENDDO..R|
|00005f80| 45 54 55 52 4e 20 6c 5f | 74 65 73 74 0d 0a 0d 0a |ETURN l_|test....|
|00005f90| 46 55 4e 43 54 49 4f 4e | 20 46 4e 41 4d 45 43 48 |FUNCTION| FNAMECH|
|00005fa0| 4b 28 29 0d 0a 4c 4f 43 | 41 4c 20 6c 52 45 54 56 |K()..LOC|AL lRETV|
|00005fb0| 41 4c 3a 3d 2e 54 2e 0d | 0a 0d 0a 0d 0a 52 45 54 |AL:=.T..|.....RET|
|00005fc0| 55 52 4e 28 6c 52 45 54 | 56 41 4c 29 0d 0a 0d 0a |URN(lRET|VAL)....|
|00005fd0| 46 55 4e 43 54 49 4f 4e | 20 45 58 54 43 48 28 43 |FUNCTION| EXTCH(C|
|00005fe0| 5f 45 58 54 29 0d 0a 4c | 4f 43 41 4c 20 4c 5f 52 |_EXT)..L|OCAL L_R|
|00005ff0| 45 54 56 41 4c 3a 3d 2e | 54 2e 0d 0a 0d 0a 0d 0a |ETVAL:=.|T.......|
|00006000| 0d 0a 52 45 54 55 52 4e | 28 4c 5f 52 45 54 56 41 |..RETURN|(L_RETVA|
|00006010| 4c 29 0d 0a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 44 |L)....FU|NCTION D|
|00006020| 45 46 41 55 4c 54 28 29 | 0d 0a 4c 4f 43 41 4c 20 |EFAULT()|..LOCAL |
|00006030| 43 48 5f 43 4f 4c 3a 3d | 2e 66 2e 0d 0a 4c 4f 43 |CH_COL:=|.f...LOC|
|00006040| 41 4c 20 43 48 5f 50 41 | 54 48 3a 3d 27 4e 27 2c |AL CH_PA|TH:='N',|
|00006050| 69 2c 20 6c 43 68 61 6e | 67 65 4e 47 4e 61 6d 65 |i, lChan|geNGName|
|00006060| 3a 3d 2e 66 2e 0d 0a 73 | 74 61 74 69 63 20 70 61 |:=.f...s|tatic pa|
|00006070| 64 5f 6c 65 6e 3a 3d 32 | 0d 0a 20 20 69 66 28 64 |d_len:=2|..  if(d|
|00006080| 62 75 70 61 74 68 3d 3d | 27 27 2c 64 62 75 70 61 |bupath==|'',dbupa|
|00006090| 74 68 3a 3d 73 70 61 63 | 65 28 33 30 29 2c 31 29 |th:=spac|e(30),1)|
|000060a0| 0d 0a 64 62 75 70 61 74 | 68 3a 3d 70 61 64 72 28 |..dbupat|h:=padr(|
|000060b0| 64 62 75 70 61 74 68 2c | 33 30 29 0d 0a 4e 47 50 |dbupath,|30)..NGP|
|000060c0| 41 54 48 3a 3d 50 41 44 | 52 28 4e 47 50 41 54 48 |ATH:=PAD|R(NGPATH|
|000060d0| 2c 31 30 30 29 0d 0a 45 | 58 50 4c 4f 44 45 28 32 |,100)..E|XPLODE(2|
|000060e0| 2c 32 2c 32 33 2c 37 38 | 2c 27 4f 4e 27 29 0d 0a |,2,23,78|,'ON')..|
|000060f0| 40 20 33 2c 33 20 53 41 | 59 20 50 41 44 43 28 27 |@ 3,3 SA|Y PADC('|
|00006100| 54 45 58 54 20 45 44 49 | 54 4f 52 20 2d 20 44 45 |TEXT EDI|TOR - DE|
|00006110| 46 41 55 4c 54 20 53 45 | 54 54 49 4e 47 53 27 2c |FAULT SE|TTINGS',|
|00006120| 37 34 29 0d 0a 40 20 35 | 2c 33 20 53 41 59 20 27 |74)..@ 5|,3 SAY '|
|00006130| 45 4e 54 45 52 20 44 45 | 46 41 55 4c 54 20 46 49 |ENTER DE|FAULT FI|
|00006140| 4c 45 20 45 58 54 45 4e | 53 49 4f 4e 3a 20 27 20 |LE EXTEN|SION: ' |
|00006150| 47 45 54 20 46 5f 45 58 | 54 20 50 49 43 54 55 52 |GET F_EX|T PICTUR|
|00006160| 45 20 27 40 4b 27 3b 0d | 0a 20 20 20 20 20 20 20 |E '@K';.|.       |
|00006170| 20 20 20 56 41 4c 49 44 | 20 45 58 54 43 48 28 46 |   VALID| EXTCH(F|
|00006180| 5f 45 58 54 29 0d 0a 40 | 20 36 2c 33 20 53 41 59 |_EXT)..@| 6,3 SAY|
|00006190| 20 27 4d 45 4d 4f 2d 45 | 44 49 54 20 4c 49 4e 45 | 'MEMO-E|DIT LINE|
|000061a0| 20 4c 45 4e 47 54 48 27 | 3b 0d 0a 20 20 20 20 20 | LENGTH'|;..     |
|000061b0| 20 20 20 20 20 47 45 54 | 20 4c 49 4e 45 5f 4c 45 |     GET| LINE_LE|
|000061c0| 4e 20 0d 0a 40 20 37 2c | 33 20 73 61 79 20 27 46 |N ..@ 7,|3 say 'F|
|000061d0| 4f 52 4d 41 54 20 50 41 | 44 20 4c 45 4e 47 54 48 |ORMAT PA|D LENGTH|
|000061e0| 27 20 47 45 54 20 50 41 | 44 5f 4c 45 4e 20 56 41 |' GET PA|D_LEN VA|
|000061f0| 4c 49 44 20 7b 7c 7c 50 | 41 44 5f 43 48 4b 28 50 |LID {||P|AD_CHK(P|
|00006200| 41 44 5f 4c 45 4e 29 7d | 0d 0a 40 20 38 2c 33 20 |AD_LEN)}|..@ 8,3 |
|00006210| 73 61 79 20 27 53 45 54 | 20 54 41 42 20 4c 45 4e |say 'SET| TAB LEN|
|00006220| 47 54 48 27 20 47 45 54 | 20 6e 5f 74 61 62 5f 6c |GTH' GET| n_tab_l|
|00006230| 65 6e 0d 0a 40 20 39 2c | 33 20 73 61 79 20 27 53 |en..@ 9,|3 say 'S|
|00006240| 45 54 20 46 49 4c 45 20 | 50 41 54 48 3a 20 27 20 |ET FILE |PATH: ' |
|00006250| 47 45 54 20 44 42 55 50 | 41 54 48 20 70 69 63 74 |GET DBUP|ATH pict|
|00006260| 75 72 65 20 27 40 6b 27 | 0d 0a 40 20 31 30 2c 33 |ure '@k'|..@ 10,3|
|00006270| 20 73 61 79 20 27 41 55 | 54 4f 4d 41 54 49 43 20 | say 'AU|TOMATIC |
|00006280| 50 41 44 53 20 41 4e 44 | 20 42 52 41 43 4b 45 54 |PADS AND| BRACKET|
|00006290| 53 27 20 47 45 54 20 6c | 44 6f 50 61 64 20 70 69 |S' GET l|DoPad pi|
|000062a0| 63 74 75 72 65 20 27 40 | 59 27 0d 0a 40 20 31 31 |cture '@|Y'..@ 11|
|000062b0| 2c 33 20 53 41 59 20 27 | 43 48 41 4e 47 45 20 53 |,3 SAY '|CHANGE S|
|000062c0| 43 52 45 45 4e 20 43 4f | 4c 4f 55 52 53 3a 20 27 |CREEN CO|LOURS: '|
|000062d0| 20 47 45 54 20 43 48 5f | 43 4f 4c 20 50 49 43 54 | GET CH_|COL PICT|
|000062e0| 55 52 45 20 27 59 27 20 | 56 41 4c 49 44 20 53 43 |URE 'Y' |VALID SC|
|000062f0| 4f 4c 53 28 43 48 5f 43 | 4f 4c 29 0d 0a 2f 2f 20 |OLS(CH_C|OL)..// |
|00006300| 40 20 31 32 2c 20 33 20 | 73 61 79 20 27 53 45 54 |@ 12, 3 |say 'SET|
|00006310| 20 4e 4f 52 54 4f 4e 20 | 47 55 49 44 45 20 50 41 | NORTON |GUIDE PA|
|00006320| 54 48 27 20 47 45 54 20 | 6e 67 70 61 74 68 20 70 |TH' GET |ngpath p|
|00006330| 69 63 74 75 72 65 20 27 | 40 4b 21 53 33 30 27 0d |icture '|@K!S30'.|
|00006340| 0a 2f 2f 20 40 20 31 32 | 2c 33 20 73 61 79 20 27 |.// @ 12|,3 say '|
|00006350| 43 55 52 52 45 4e 54 20 | 4e 47 20 46 49 4c 45 20 |CURRENT |NG FILE |
|00006360| 3d 20 27 20 2b 20 6e 67 | 6e 61 6d 65 20 67 65 74 |= ' + ng|name get|
|00006370| 20 6c 43 68 61 6e 67 65 | 4e 47 4e 61 6d 65 20 70 | lChange|NGName p|
|00006380| 69 63 74 75 72 65 20 27 | 59 27 0d 0a 52 45 41 44 |icture '|Y'..READ|
|00006390| 0d 0a 64 62 75 70 61 74 | 68 3a 3d 74 72 69 6d 28 |..dbupat|h:=trim(|
|000063a0| 64 62 75 70 61 74 68 29 | 0d 0a 0d 0a 66 5f 65 78 |dbupath)|....f_ex|
|000063b0| 74 3a 3d 70 61 64 72 28 | 66 5f 65 78 74 2c 34 29 |t:=padr(|f_ext,4)|
|000063c0| 0d 0a 0d 0a 2f 2f 6e 67 | 70 61 74 68 3a 3d 61 6c |....//ng|path:=al|
|000063d0| 6c 74 72 69 6d 28 6e 67 | 70 61 74 68 29 0d 0a 2f |ltrim(ng|path)../|
|000063e0| 2f 6e 67 64 69 72 3a 3d | 6e 67 64 69 72 28 6e 67 |/ngdir:=|ngdir(ng|
|000063f0| 70 61 74 68 29 20 20 20 | 20 20 20 20 20 20 20 0d |path)   |       .|
+--------+-------------------------+-------------------------+--------+--------+